r 在Shiny中设置DT :: datatable中的水平滚动

Posted 2021-05-23

library(shiny)
library(DT)

ui <- fluidPage(
  dataTableOutput("mtcars")
)

server <- function(input, output, session) {
  output$mtcars <- renderDataTable(
    datatable(mtcars, options = list(scrollX = TRUE))
  )
}

shinyApp(ui, server)