r - 用闪亮的截图捕捉整个桌子，只有可见的部分

Question

可以说我有一个有限空间的表来显示。屏幕截图仅用于可见部分。我们可以让屏幕截图捕获表格的所有选定列吗？

library(shiny)
library(shinyscreenshot)
library(DT)
ui <- fluidPage(
  fluidRow(
    column(10,),
    column(2,  DTOutput("plot")
)
  ),
  actionButton("go", "Take a screenshot")
)

server <- function(input, output) {
  output$plot<-renderDataTable({
    
    datatable(iris,
              options = list(scrollX = TRUE))
  })
  observeEvent(input$go, {
    screenshot(selector="#plot")
  })
}

shinyApp(ui, server)

标签： rshinyshinyscreenshot