在闪亮的仪表板中更改颜色答案

【问题标题】：Change color in shinydashboard在闪亮的仪表板中更改颜色
【发布时间】：2017-12-14 11:17:00
【问题描述】：

我有以下将闪亮仪表板中主要状态的颜色更改为我所说的自定义蓝色。

tags$style(HTML(".box.box-solid.box-primary>.box-header {
                                color:#FFFFFF;
                                background-color:#005CB9;}

                                .box.box-solid.box-primary{
                                border-bottom-color:#005CB9;
                                border-left-color:#005CB9;
                                border-right-color:#005CB9;
                                border-top-color:#005CB9;
                                }")),

但是我需要更改信息框的颜色，因为它使用颜色 = 而不是状态 =。有谁知道我需要更改标签以自定义闪亮仪表板中的一种默认颜色？

谢谢

【问题讨论】：

标签： css colors shinydashboard

【解决方案1】：

我在dashboardBody() 标记的开头使用了以下style() 语句，用您的自定义蓝色覆盖color = "aqua" 的每个实例：

tags$style(
  type = 'text/css', 
  '.bg-aqua {background-color: #005CB9!important; }'
),

关键是颜色后面的"!important"，它会覆盖shinydashboard 预设。

将来，识别 css 类的一种简单方法是在运行 shinyapp 时在 Rstudio 中选择“运行外部”，然后使用浏览器的开发人员工具或“检查元素”工具。

这是上下文的完整示例：

require(shiny)
require(shinydashboard)

ui <- shinyUI(dashboardPage(
  dashboardHeader(title = 'Change infoBox color'),
  dashboardSidebar(disable = TRUE),

  dashboardBody(
    tags$style(
      type = 'text/css', 
      '.bg-aqua {background-color: #005CB9!important; }'
    ),

    infoBox(
      title = 'Custom Color',
      value = 100,
      color = 'aqua'
    )
  )
))

server <- shinyServer(function(input, output) {

})

shinyApp(ui, server)

【讨论】：