获取 DT 表中的选定列

Question

我正在开发一个闪亮的应用程序，用户可以在其中选择大数据集中的多个列来创建该数据集的子集。我使用包 DT 在闪亮的应用程序中很好地呈现表格。

我之前使用了 DT 包的 0.2 版，其中以下代码正在运行：

library("DT")
library("shiny")

ui <- fluidPage(
  DT::dataTableOutput('table1'),
  DT::dataTableOutput("table2")
)

server <- function(input, output) {
  output$table1 <- DT::renderDataTable({
    datatable(mtcars, extensions = 'Select', selection = 'none', options = list(ordering = FALSE, searching = FALSE, pageLength = 25, select = list(style = 'os', items = 'column')),
              callback = JS(
                "table.on( 'click.dt', 'tbody td', function (e) {",
                "var type = table.select.items();",
                "var idx = table[type + 's']({selected: true}).indexes().toArray();",
                "var DT_id = table.table().container().parentNode.id;",
                "Shiny.onInputChange(DT_id + '_columns_selected', idx);",
                "})"
              ))
  })

  output$table2 <- DT::renderDataTable({
    subset_table <- mtcars[,input$table1_columns_selected]
    datatable(subset_table)
  })
}

shinyApp(ui = ui, server = server)

不幸的是，这段代码不再工作了（我现在在 0.4 版本下）。 input$table1_columns_selected 不会呈现所选列的索引。 根据这个https://rstudio.github.io/DT/shiny.html，现在有一个选择多行的功能，但我不知道如何对列做同样的事情。

有什么想法吗？ 非常感谢您的帮助！

Answer 1

我不确定您为什么需要使用回调参数来执行此操作。这是一个简化的方法 -

library("DT")
library("shiny")

ui <- fluidPage(
  DT::dataTableOutput('table1'),
  DT::dataTableOutput("table2")
)

server <- function(input, output) {
  output$table1 <- DT::renderDataTable({
    datatable(mtcars, extensions = 'Select', selection = list(target = "column"), options = list(ordering = FALSE, searching = FALSE, pageLength = 25))
  })

  output$table2 <- DT::renderDataTable({
    subset_table <- mtcars[, input$table1_columns_selected, drop = F]
    datatable(subset_table)
  })
}

shinyApp(ui = ui, server = server)

注意output$table1 中datatable 参数的变化。希望这就是您想要的。

Answer 2

我已经测试了你的代码，它对我来说工作正常（见下图），我也在使用 DT 包版本 0.4。

所以我的猜测是，它不是 DT 包问题，而是导致问题的全局配置中的其他问题。