我正在使用DT软件包来制作一个闪亮的应用程序。感谢其他建议,它工作得很好,但是当我包含过滤器参数(默认情况下是'none')时,我得到了下一个消息:
run中的警告(TimeoutMs):不丢失参数到min;在运行中返回Inf警告(TimeoutMs):不丢失参数给max;返回-Inf
我甚至在上传文件之前就收到了这条消息,所以我认为问题可能在read.table参数中,但我找不到解决方案。这是代码:
Ui.r
library(shiny)
library(shinythemes)
library(DT)
shinyUI(fluidPage(theme = shinytheme("Journal"),
fileInput("FileInput", "Choose file 1"),
DT::dataTableOutput("table"))
server.r
library(shiny)
library(DT)
shinyServer(function(input, output, session) {
datasetInput <- reactive({
infile <- input$FileInput
if(is.null(infile))
return(NULL)
read.table(infile$datapath, header = TRUE, sep="")
})
output$table = DT::renderDataTable(
datasetInput(),
filter='top',
extensions = c('TableTools','ColVis'),
options = list(dom = 'TC<"clear">ftir',
tableTools = list(
"sSwfPath" = "//cdnjs.cloudflare.com/ajax/libs/datatables- tabletools/2.1.5/swf/copy_csv_xls.swf",
"aButtons" = list(
"copy",
"print",
list("sExtends" = "collection",
"sButtonText" = "Save",
"aButtons" = c("csv","xls")))),
ColVis = list(activate= "click", align = "right"))
)})
此外,当我上传一个文件(尽管警告包括筛选器选项),范围滑块不允许您选择一个间隔,只是不同的值行(对不起,但我还不能上传一个文件:)
https://stackoverflow.com/questions/31323807
复制相似问题