如何设置"DT::renderDataTable“，使我可以复制或打印所有的表格，而不只是一页？

Question

这是我的代码，我想复印或打印所有，但它只打印当前页面，谢谢！

library(shiny)
library(DT)
ui <- fluidPage(
  DT::dataTableOutput("tt")
)

server <- function(input, output, session) {
  iris2 = head(iris, 20)
  output$tt <- DT::renderDataTable(
    iris2,
    extensions = 'Buttons', options = list(
      dom = 'Bfrtip',
      buttons = c('copy', 'print')
    )
  )
  
}

shinyApp(ui, server)

Answer 1

最简单的方法是使用选项server = FALSE。

  output$tt <- renderDT({
    datatable(
      iris2,
      extensions = 'Buttons', 
      options = list(
        dom = 'Bfrtip',
        buttons = c('copy', 'print')
      )
    )
  }, server = FALSE)