如何设置；DT:：renderDataTable“；我可以复制或打印所有表格而不是一页？

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

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)

库（闪亮）
图书馆（DT）
ui最简单的方法是使用选项
server=FALSE

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

输出$tt