R亮框内容背景色

Question

我试图将方框的背景内容颜色从白色更改为#222d32（或任何自定义颜色），但是使用background参数时，我会出现错误

validateColor（背景）中出错：无效颜色：#222d32。有效颜色有：红色、黄色、浅绿色、蓝色、浅蓝色、绿色、海军蓝、青色、橄榄色、青柠色、橙色、紫红色、紫色、栗色、黑色。

下面的代码：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
        fluidRow(
            box(width = 6, title = "test", status = "primary", solidHeader = TRUE, background = '#222d32',
                "Box content"
            )
        )
    )
)


server <- function(input, output) {}

shinyApp(ui, server)

我还尝试创建一个自定义包装来捕获

library(shiny)
library(shinydashboard)

box_customBackground <- function(box_object, color = NULL){

    new_color_class <- paste0('<div class="box box-solid ', color ,'">')

    box_modify <- gsub('<div class="box">', new_color_class, box_object)

    box_html <- HTML(box_modify)

    return(box_html)
}


ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
        fluidRow(
            box_customBackground(box_object  =  box(
                actionButton(inputId = 'SelectGroup', label = 'Change Groups'),
                checkboxGroupInput(inputId = 'SimulationType', choices = c('Growth', 'Step'), selected = 'Growth',
                                   label = NULL, inline = TRUE),
                width = 5), color = '#222d32'
            )
        )
    )
)


server <- function(input, output) {}

shinyApp(ui, server)




Answer 1

如果您只想更改框内容的背景，请执行以下操作：

library(shiny) 
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    tags$style(HTML("


                .box.box-solid.box-primary>.box-header {

                }

                .box.box-solid.box-primary{

                background:#222d32
                }

                ")),
    fluidRow(
      box(width = 6, title = "test", status = "primary", solidHeader 
         = TRUE,
          "Box content"
      )
    )
    )
  )


server <- function(input, output) {}

shinyApp(ui, server)

如果要更改框中的所有内容，请执行以下操作：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    tags$style(HTML("

                    .box.box-solid.box-primary>.box-header {
                    color:#fff;
                    background:#222d32
                    }

                    .box.box-solid.box-primary{
                    border-bottom-color:#222d32;
                    border-left-color:#222d32;
                    border-right-color:#222d32;
                    border-top-color:#222d32;
                    background:#222d32
                    }

                    ")),
    fluidRow(
      box(width = 6, title = "test", status = "primary", solidHeader = 
        TRUE,
         "Box content"
      )
    )
    )
  )


server <- function(input, output) {}

shinyApp(ui, server)