您可以将 Shiny Dashboard 框的宽度设置为 1.5 吗？

Question

我有一个闪亮的仪表板，一行中有 8 个框。要将它们放在一行上，我需要将宽度设置为 1.5（共 12 个）。

当我这样做时，每个盒子都会占据一整行：

fluidRow(
  box(width = 1.5, title = "Sample Flow", background = "black", dygraphOutput("plot5", height = 150)),
  box(width = 1.5, title = "Last 24 Hrs", background = "black", dygraphOutput("plot6", height = 150)),
  box(width = 1.5, title = "Sample Flow", background = "black", dygraphOutput("plot7", height = 150)),
  box(width = 1.5, title = "Last 24 Hrs", background = "black", dygraphOutput("plot8", height = 150)),
  box(width = 1.5, title = "Sample Flow", background = "black", dygraphOutput("plot9", height = 150)),
  box(width = 1.5, title = "Last 24 Hrs", background = "black", dygraphOutput("plot10", height = 150)),
  box(width = 1.5, title = "Sample Flow", background = "black", dygraphOutput("plot11", height = 150)),
  box(width = 1.5, title = "Last 24 Hrs", background = "black", dygraphOutput("plot12", height = 150))
),

有没有什么办法可以把 8 个盒子放在一排，填满整个窗口？

Answer 1

如果您在浏览器中检查这些框，它们每个都包含在 col-sm-6 类中。因此，如果您将 col-sm-6 宽度更改为 12.5%（即 100% / 元素数），它们应该都适合一行。如果您有一个更复杂的应用程序，您可能希望为它分配一个特定的 id 而不是修改整个类，但对于这个示例，只需更改类本身就可以了。有关使用 css 设置 Shiny 样式的更多信息（以及此处使用的语法，如 tags$head 等），请参阅 here.

library(shiny)
library(shinydashboard)

ui <- fluidPage(
    tags$head(
        tags$style(
            HTML('
            .col-sm-6 {
                width: 12.5%;
            }
            ')
        )
    ),
    fluidRow(
        box(title = "Sample Flow", background = "black"),
        box(title = "Last 24 Hrs", background = "black"),
        box(title = "Sample Flow", background = "black"),
        box(title = "Last 24 Hrs", background = "black"),
        box(title = "Sample Flow", background = "black"),
        box(title = "Last 24 Hrs", background = "black"),
        box(title = "Sample Flow", background = "black"),
        box(title = "Last 24 Hrs", background = "black"))
)

server <- function(input, output, session) {}

shinyApp(ui, server)