Question

我刚注意到datatable库中的DT不会导出基础数据集中的所有行。它只导出可见行。在下面的可重现示例中，它仅返回25行，默认情况下可见。

我想知道是否有任何解决方法可以解决这个问题。

library(shiny)
library(DT)

## Data table output format
data_output <- function(df) {
  DT::datatable(df, rownames= FALSE, options = list( dom = 'Bfrtip', buttons = c('excel','pdf','print','colvis'), pageLength = 25, initComplete = DT::JS(
    "function(settings, json) {",
    "$(this.api().table().header()).css({'background-color': '#369BE9', 'color': '#fff'});",
    "}") ), 
    extensions = c('Buttons','FixedColumns'))
}

## Shiny UI
ui <- basicPage(
  h2("The mtcars data"),
  DT::dataTableOutput("mytable")
)

## Shiny Server
server <- function(input, output) {
  output$mytable = DT::renderDataTable({
    data_output(iris)
  })
}

shinyApp(ui, server)

Answer 1

## Data table output format
  data_output <- function(df) {
       DT::datatable(df, rownames= FALSE, options = list( dom = 'Bfrtip', buttons = c('excel','pdf','print','colvis'), pageLength = nrow(df), initComplete = DT::JS(
"function(settings, json) {",
"$(this.api().table().header()).css({'background-color': '#369BE9', 'color': '#fff'});",
"}") ), 
extensions = c('Buttons','FixedColumns'))
}

数据表不会导出Rshiny

1 个答案: