css - Shiny Dashboard 框和表格格式不一致

Question

我用下面的虚拟表格制作了一个简单的 Shiny 仪表板。当我运行它并且窗口太薄时，表格的列会超出框的边缘。如果我把窗口做得足够宽，那么 table 就可以装进盒子里了。

谁能提供更一致的格式？解决方案可能是使框和表格具有固定宽度，使表格列宽随着框宽度而变化，或其他。

问题的底部是每个状态的屏幕截图，用于说明。

ui.R

library(shinydashboard)
header <- dashboardHeader(title="Dashboard")
sidebar <- dashboardSidebar(sidebarMenuOutput("menu"))
body <- dashboardBody(
  tabItems(
    tabItem(tabName = "Home",
            fluidRow(
              column(width = 4,
                     box(title = "Column 1", width = NULL, solidHeader = TRUE,
                         tableOutput("Table1")),
                     box(
                       title = "Title 1", width = NULL, solidHeader = TRUE,
                       "Box content")
              ),
              column(width = 4,
                     box(
                       title = "Column 2", width = NULL, solidHeader = TRUE,
                       tableOutput("Table2"))
              ),
              column(width = 4,
                     box(title = "Column 2", width = NULL, solidHeader = TRUE),
                     box(title = "Title 3", width = NULL, solidHeader = TRUE)
              )
            )
    )
  )
)

dashboardPage(header, sidebar, body)

服务器.R

library(magrittr)
library(xtable)
col1 <- 1:10
col2 <- runif(10)
col3 <- "alphabet soup"
col4 <- c(TRUE, TRUE, FALSE, FALSE, TRUE)

Frame1 <- data.frame(col3, col1, col2, col4, col2, col3)
Frame2 <- data.frame(col3, col3, col3, col4)

server <- function(input, output) {
  output$menu <- renderMenu({
    sidebarMenu(
      menuItem("Home", tabName = "Home", icon = icon("home"))
    )
  })
  output$Table1 <- renderTable({
    xtable(Frame1)
  })
  output$Table2 <- renderTable({
    xtable(Frame2)
  })
}

谢谢!

Answer 1

添加此样式为我解决了问题。

在 custom.css 中:

.content {
  overflow-y: auto;
}

然后在 Shiny 的 ui 中包含带有 css 文件的样式:

tags$link(rel = "stylesheet", type = "text/css", href = "custom.css")