R/Shiny：selectInput 字段中的多个默认值答案

【问题标题】：R/Shiny: multiple default values in selectInput fieldR/Shiny：selectInput 字段中的多个默认值
【发布时间】：2021-03-12 13:55:27
【问题描述】：

我正在尝试添加一个按钮以将我的 DataTable 的内容下载为 CSV。我想要所有可用的数据，而不仅仅是表格中当前可见的数据（列可以隐藏，表格可以分页）。

这是我的表的代码：

DT::renderDataTable({ 
# .../...
},
extensions = c('Buttons'),
options = list(
    lengthMenu = list(c(10, 100, 500, -1), c(10, 100, 500, "Tout")),
    pageLength = 100,
    searching = FALSE,
    language = list(url = "datatable.frFR.json"),
    dom = "<'row'<'col-sm-4 info'i><'col-sm-4 actions'B><'col-sm-4 filter'l>><'row'<'col-sm-12'tr>><'row'<'col-sm-5'i><'col-sm-7'p>>",
    buttons = list(
        list(extend = 'colvis', text = 'Colonnes affichées', columns = c(1:9)),
        list(extend = 'csv', text = 'Télécharger CSV', exportOptions = list(modifier = list(order = 'original', page = 'all')))
        ),
    columnDefs = list(
        list(targets = c(3, 5, 9), visible = FALSE)
    )
))

order = 'original' 和 page = 'all' 似乎都不起作用（使用当前顺序，仅导出当前行数）。我做错了什么？

【问题讨论】：

为renderDT 尝试server = FALSE 选项。
也不行，DT doc (datatables.net/reference/option) 中也没有提到它

标签： r shiny dt

【解决方案1】：

server = FALSE 选项适用于闪亮。

ui <- fluidPage(
  DTOutput("tb1")
)

server <- function(input, output) {
  output$tb1 <- DT::renderDT({
    storms
    # .../...
  },
  server = FALSE,  ##  with this option all data is downloaded.  Without this only data in view is downloaded.
  extensions = c('Buttons'),
  options = list(
    lengthMenu = list(c(10, 100, 500, -1), c(10, 100, 500, "Tout")),
    pageLength = 100,
    searching = FALSE,
    language = list(url = "datatable.frFR.json"),
    dom = "<'row'<'col-sm-4 info'i><'col-sm-4 actions'B><'col-sm-4 filter'l>><'row'<'col-sm-12'tr>><'row'<'col-sm-5'i><'col-sm-7'p>>",
    buttons = list(
      list(extend = 'colvis', text = 'Colonnes affichées', columns = c(1:9)),
      list(extend = 'csv', text = 'Télécharger CSV', exportOptions = list(modifier = list(order = 'original', page = 'all')))
    ),
    columnDefs = list(
      list(targets = c(3, 5, 9), visible = FALSE)
    )
  ))

}

shinyApp(ui, server)

【讨论】：