Сияющая ширина InfoBox не применяется

Question

Я пытаюсь сделать так, чтобы два блестящих инфобокса помещались рядом друг с другом, занимая всю ширину в жидком ряду. Для этого я указываю width = 6, то есть половину bootstrap 12.

Однако параметр width не влияет на класс Div, который выглядит как col-sm-4 ( # блестящий- html -выход col-sm-4) независимо. В результате две коробки занимают 2/3 из с (4 + 4 двенадцатых).

В качестве дополнительного вопроса, я также хотел бы иметь возможность указать цвет кожи напрямую, а не только как желтый, который наиболее близок к оранжевому из доступных цветов кожи. Я подозреваю, что мне нужно переопределить с помощью 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)
            )