闪亮的InfoBox宽度不适用

Question

我正在尝试让两个闪亮的InfoBox并排放在一起，它们之间的宽度在流畅的一排内。为此，我指定width = 6，即bootstrap 12的一半。

但是，width参数对Div类没有任何影响，它以col sm-4 (#shiny-html-output col-sm-4 )的形式出现。因此，这两个盒子占据了4+4的2/3。

作为一个次要问题，我也希望能够直接指定肤色，而不仅仅是黄色，这是我能从可用的肤色中获得的最接近橙色的颜色。我想我需要用CSS覆盖。

library(shiny)
library(shinydashboard)
dashboard_colour <- "orange"

sidebar <- dashboardSidebar(
    sidebarMenu(
        menuItem("Overview", tabName = "overview", icon = icon("dashboard"))
    )
)
body <- dashboardBody(
    tabItems(
        tabItem(tabName = "overview",
                h2("Overview"),
                fluidRow(
                    infoBoxOutput("boxLeft"),
                    infoBoxOutput("boxRight")
                )
        )
    )
)
ui <- dashboardPage(
    skin = "yellow",
    dashboardHeader(title = "Orange Dashboard"),
    sidebar,
    body
)

server <- function(input, output) {
    output$boxLeft <- renderValueBox({
        infoBox(
            123, "No on Left", 
            icon = icon("arrow-alt-circle-left", class = "infoIcon"),
            color = dashboard_colour,
            width = 6
        )
    })
    output$boxRight <- renderValueBox({
        infoBox(
            456, "No on Right", 
            icon = icon("arrow-alt-circle-right", class = "infoIcon"),
            color = dashboard_colour,
            width = 6
        )
    })
}

# Run the application 
shinyApp(ui = ui, server = server)

Answer 1

将infoBoxOutput的宽度设置为6即可完成此任务：

    fluidRow(
              infoBoxOutput("boxLeft", width = 6),
              infoBoxOutput("boxRight", width = 6)
            )