r语言 - 闪亮的DT包装过滤器警告

Question

我正在使用DT包在Shiny中制作应用程序。多亏了其他的建议，它工作得很好，但是当我包括过滤器参数(默认为'none')时，我得到下一条消息:

运行时警告(timeoutMs):没有不遗漏的参数;恢复正运行中的警告(timeoutMs):max没有未丢失的参数;返回从

我得到这个消息，甚至在我上传文件之前，所以我认为也许问题是在读取。表的论据，但我找不到解决方案。这是代码:

Ui.r

library(shiny)
library(shinythemes)
library(DT)
shinyUI(fluidPage(theme = shinytheme("Journal"),
 fileInput("FileInput", "Choose file 1"),

 DT::dataTableOutput("table"))

服务器。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"))
  )})

此外，当我上传一个文件(尽管警告包括过滤器选项)的范围滑块不让你选择一个间隔，只是行不同的值(对不起，但我不能上传一个文件:)

Answer 1

此问题已在DT(>= 0.1.16)的当前开发版本中修复。必须有一个列，其中所有值都缺失(NA)在您的数据中，在这种情况下，DT将禁用过滤器，因为过滤NA s的完整列没有任何意义。