r - dataTableOutput 适合列大小

Question

在我需要渲染矩阵的地方构建一个闪亮的仪表板。为此，我计划使用DT::renderDataTable.

一切都在列大小为 3（共 12 个）的 FluidRow 内。DataTable 分布在定义的列之外。

我怎样才能强制表格适合列并且不要越过它？

标签： rshinyshinydashboard

Answer 1

也许您可以使用它splitLayout来获得您想要的输出。尝试这个

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Test App"
  ),
  dashboardSidebar(),
  dashboardBody(
    splitLayout(cellWidths = c("25%", "25%", "50%"),
                DTOutput("t1"), DTOutput("t2"), DTOutput("t3") 
    )
  )
)

server <- function(input, output) {
  output$t1 <- renderDT({mtcars})
  output$t2 <- renderDT({mtcars[9:15,]})
  output$t3 <- renderDT({mtcars[21:32,]})
}

shinyApp(ui, server)