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

Question

我正在使用带有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)

Answer 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 的下载处理程序。