Question

我有以下内容将shinydashboard中主要状态的颜色更改为我所说的自定义蓝色。

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;
                                }")),

但是我需要更改信息框的颜色，因为它使用color =而不是status =。有没有人知道我需要更改的标签，以自定义shinydashboard中的一种默认颜色？

由于

Answer 1

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

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

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

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

以下是上下文的完整示例：

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)

改变shinydashboard的颜色

1 个答案: