闪亮-renderDataTable-bSearchable vs checkboxInput

Question

建立数据表时，我在合并两个功能时遇到问题：

1. 我使用“ bSearchable”选择要使用搜索工具进行过滤的1列
2. 我使用“ checkboxInput”来选择用户想要查看的列。

两者都是分开工作的，但不能一起工作。 如果取消选中菜单输入中的一列，数据将消失-就像应用过滤器一样，未找到任何数据。 我怎样才能解决这个问题？

          library(shiny)    
runApp(list(ui=(fluidPage(
      pageWithSidebar(
        headerPanel('Title'),
        sidebarPanel(
          helpText('Text about the table'),

          checkboxInput('columns','I want to select the columns' , value = FALSE),

          conditionalPanel(
            condition= "input.columns == true",
            checkboxGroupInput('show_vars', 'Select the columns that you want to see:', names(iris[1:4]),
                               selected =  names(iris[1:4]))
          ),

          downloadButton('downloadData', 'Download'),width = 3

        ),
        mainPanel(
          tags$head(tags$style("tfoot {display: table-header-group;}")),
          dataTableOutput("mytable1"),width = 9

        )
      ))
    )

    ,

    server=(function(input, output) {

      library(ggplot2) 
      library(XLConnect)  

      #DATA 
      tabel<- reactive({
        iris[,c(input$show_vars,"Species"), drop = FALSE]

      })

      #   OUTPUT   
      output$mytable1 = renderDataTable({
        tabel()}, 
        options = list(    
          aoColumns = list(list(bSearchable = FALSE), list(bSearchable = FALSE),list(bSearchable = FALSE),
                           list(bSearchable = FALSE),list(bSearchable = TRUE)),
          bFilter=1, bSortClasses = 1,aLengthMenu = list(c(10,25,50, -1), list('10','25', '50', 'Todas')),iDisplayLength = 10
        )

      )

      output$downloadData <- downloadHandler(
        filename = function() { paste('tabela_PSU','.xlsx', sep='') },
        content = function(file){
          fname <- paste(file,"xlsx",sep=".")
          wb <- loadWorkbook(fname, create = TRUE)
          createSheet(wb, name = "Sheet1")
          writeWorksheet(wb, tabel(), sheet = "Sheet1") 
          saveWorkbook(wb)
          file.rename(fname,file)
        },
      )


    })
    ))

Answer 1

问题是通过更改基于input$show_vars的数据iris ，您正在更改DataTable的列数。 但是，您已经定义了一个固定的 aoColumns选项，这意味着您的DataTable具有五列（四列不可搜索，一列可搜索）。

因此，当取消选择任何复选框输入时，过滤的数据与指定的选项不匹配。 结果，什么也不显示。

也就是说，尽管您在DataTable中的数据是反应性的，但是选项不是反应性的 。

如果您仔细阅读renderDataTable的文档 ，将会看到可以将两种类型的变量传递给options参数：

options传递给DataTables的初始化选项的列表，或者返回该列表的函数。

不同之处在于：

• 如果您将options指定为列表，Shiny会假定options是固定的； 但是，由于要基于input$show_vars动态过滤数据，因此也应该动态更改aoColumns的选项。
• 如果将函数作为options的参数传递，Shiny将知道这些options也是反应性的。 因此闪亮还将更新options时的数据（在你的情况下， data.frame中的反应变量命名封装tabel更新）。

您可能已经知道， 反应变量本身就是函数 。 在反应性环境中对它们进行评估，并在评估时返回数据的当前状态/值。 这就是为什么您将tabel()而不是tabel给renderDataTable 。

然后，解决方案是将整个options列表包装到一个反应变量中（因此也有一个函数）。 具体来说，我们要动态设置aoColumns选项，以便bSearchable切换次数与DataTable中显示的列数匹配。

下面，我仅显示更新的server部分，因为在UI部分中无需更改任何内容。

server.R

shinyServer(function(input, output) {

  library(ggplot2) 
  library(XLConnect)  

  #DATA 
  tabel<- reactive({
    iris[,c(input$show_vars,"Species"), drop = FALSE]

  })

  # wrap the `options` into a reactive variable (hence a function) so that it will
  # be evaluated dynamically when the data changes as well. 
  # `dt_options` is reactive in the sense that it will reflect the number of rows
  # visible based on the checkboxInput selections.

  dt_options <- reactive({
    # dynamically create options for `aoColumns` depending on how many columns are selected.
    toggles <- lapply(1:length(input$show_vars), function(x) list(bSearchable = F))
    # for `species` columns
    toggles[[length(toggles) + 1]] <- list(bSearchable = T)

    list(
      aoColumns = toggles,
      bFilter = 1, bSortClasses = 1, 
      aLengthMenu = list(c(10,25,50, -1), list('10','25', '50', 'Todas')),
      iDisplayLength = 10
      )
  })

  #   OUTPUT
  output$mytable1 = renderDataTable({
    tabel()}, 
    options = dt_options
  )

  output$downloadData <- downloadHandler(
    filename = function() { paste('tabela_PSU','.xlsx', sep='') },
    content = function(file){
      fname <- paste(file,"xlsx",sep=".")
      wb <- loadWorkbook(fname, create = TRUE)
      createSheet(wb, name = "Sheet1")
      writeWorksheet(wb, tabel(), sheet = "Sheet1") 
      saveWorkbook(wb)
      file.rename(fname,file)
    },
  )

})

（请注意，我将UI部分和服务器部分分为ui.R和server.R 。）