dataTableOutput 适合列大小

问题描述

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

所有内容都在列大小为 3（共 12 个）的 FluidRow 中。 DataTable 从定义的列展开。

如何强制表格适合该列而不越过它？

解决方法

也许您可以使用 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)

r r shiny shinydashboard