R 你能将闪亮的仪表板框宽度设置为1.5吗？

我有一个闪亮的仪表板，一排有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个框放在一行，填满窗口？

如果您在浏览器中检查这些框，它们都被封装在

col-sm-6

类中。因此，如果您将

col-sm-6

width更改为12.5%（即100%/元素数），则它们都应适合一行。如果你有一个更复杂的应用程序，你可能想给它分配一个特定的

id

，而不是修改整个类，但是在这个例子中，仅仅更改类本身就可以了。有关使用css设置样式的更多信息（以及此处使用的语法，

tags$head

等），请参阅

库（闪亮）
图书馆（shinydashboard）
你确定你可以把浮点设为宽度吗？嗯，我可以这样做，但我需要一行12和一行8。
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)