Shiny DataTable：使用按钮扩展保存完整的 data.frame

Posted 2023-02-14

【中文标题】Shiny DataTable：使用按钮扩展保存完整的 data.frame

【英文标题】：Shiny DataTable: Save full data.frame with buttons extension

【发布时间】：2017-06-03 09:53:49

【问题描述】：

我正在使用带有 Shiny 的 DataTables。使用按钮扩展，用户可以下载或打印数据表中的数据。但只有行的可见部分被下载/打印。我想改变这种行为，以便可以下载包含所有行的完整 data.frame。这是否可以通过按钮扩展实现，还是我必须切换到 downloadHandler？

library(DT)
library(shiny)

df <- data.frame(a = 1:100, b = 1:100)

ui <- fluidPage(
  dataTableOutput("table")
)

server <- function(input, output)

  output$table <- DT::renderDataTable(df, 
                      extensions = c("Buttons"), 
                      options = list(dom = 'Bfrtip',
                                     buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
                      ))



shinyApp(ui, server)

【参考方案1】：

如果你使用 Scroller 就可以了：

  output$table <- DT::renderDataTable(df, 
                                      extensions = c('Buttons', 'Scroller'), 
                                      options = list(
                                        dom = 'Bfrtip',
                                        deferRender = TRUE,
                                        scrollY = 400,
                                        scroller = TRUE,
                                        buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
                                      ))  

---

编辑

正如@Jav 评论的那样，当您拥有大型数据集时，此解决方案不起作用。 @Jav 指出使用 server=FALSE 可能是更好的解决方法，它允许您使用分页或滚动模式：

output$table <- DT::renderDataTable(df, server = FALSE,
                  extensions = c("Buttons"), 
                  options = list(dom = 'Bfrtip',
                                 buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
                  ))

如果您有一开始不想完全加载的非常大的数据集，那么您应该实现 Shiny 的下载处理程序。

【讨论】：

其实这是不正确的。除非你有server = FALSE，否则它仍然只会下载用户端加载的部分。当然，它不仅仅是“可见行”，因此在小型数据集中，您可能会感觉到所有内容都在下载。但是在大表中，你会看到它只是下载了一部分。

1) 您可以通过滚动整个表格然后使用其中一个按钮来加载整个表格。但是在大桌子上很傻。 2) 使用server = FALSE 3) 使用闪亮的下载处理程序

如果使用server=FALSE，当数据大时会断开连接

除了滚动条，您还可以提供页面长度选项并允许用户显示所有数据。 options = list(dom = 'Bfrtip', buttons = c('pageLength', 'copy', 'csv', 'excel', 'pdf', 'print'), pagelength = 10, lengthMenu = list(c(10, 25, 100, -1), c('10', '25', '100','All'))