r - 如何调整数据表的大小以将其放入 Shiny 仪表板的框()中

Question

我不知道如何确保 DT::renderDataTable 的大小适合我的盒子。

这是我的 Shiny 渲染的图片

有人知道如何确保 table 适合盒子吗？或者我可以在表格下方添加一个 slider 来滚动其他不在屏幕上的变量吗？

这是我的代码:

server.R

output$table = DT::renderDataTable({
    DT::datatable(
      round(df,2), 
      rownames = TRUE,
      extensions = 'Buttons',
      options = list(
        autoWidth = FALSE, 
        columnDefs = list(list(width = "125px", targets = "_all")),
        dom = 'tpB',
        lengthMenu = list(c(5, 15, -1), c('5', '15', 'All')),
        pageLength = 15,
        buttons = list(
          list(
            extend = "collection",
            text = 'Show More',
            action = DT::JS("function ( e, dt, node, config ) {
                              dt.page.len(50);
                              dt.ajax.reload();}")
          ),list(
            extend = "collection",
            text = 'Show Less',
            action = DT::JS("function ( e, dt, node, config ) {
                              dt.page.len(10);
                              dt.ajax.reload();}")
            
          )
        )
      )
    )
  
  })

body.R

        box( title = "A little taste of the dataset",
             width = 12,
             DT::dataTableOutput("table") )

Answer 1

您可以简单地将 scrollX = TRUE 添加到数据表选项中:

library(shiny)
library(shinydashboard)

DF <- data.frame(replicate(50, runif(1000, 0, 10)))

ui <- fluidPage(box(
  title = "A little taste of the dataset",
  width = 12,
  DT::dataTableOutput("myTable")
))

server <- function(input, output, session) {
  output$myTable = DT::renderDataTable({
    DT::datatable(
      round(DF, 2),
      rownames = TRUE,
      extensions = 'Buttons',
      options = list(
        autoWidth = FALSE, scrollX = TRUE,
        columnDefs = list(list(
          width = "125px", targets = "_all"
        )),
        dom = 'tpB',
        lengthMenu = list(c(5, 15,-1), c('5', '15', 'All')),
        pageLength = 15,
        buttons = list(
          list(
            extend = "collection",
            text = 'Show More',
            action = DT::JS(
              "function ( e, dt, node, config ) {
                              dt.page.len(50);
                              dt.ajax.reload();}"
            )
          ),
          list(
            extend = "collection",
            text = 'Show Less',
            action = DT::JS(
              "function ( e, dt, node, config ) {
                              dt.page.len(10);
                              dt.ajax.reload();}"
            )

          )
        )
      )
    )
  })
}

shinyApp(ui = ui, server = server)