构建一个闪亮的仪表板,其中我需要渲染一个矩阵。为此,我计划使用DT::renderDataTable。
所有内容都在一个列大小为3(满分为12)的FluidRow中。DataTable展开到已定义的列之外。
如何才能强制表格适合该列而不遍历它呢?

发布于 2021-05-29 04:16:51
也许您可以使用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)

https://stackoverflow.com/questions/67741278
复制相似问题