r - R - Shiny：布局的颜色

Question

我希望整个布局是彩色的#84754C。但有些部分是蓝色的。我怎样才能使那部分也有颜色#84754C？任何人都可以帮忙吗？

代码：

library(shiny)
library(shinydashboard)

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

                    .box.box-solid.box-primary>.box-header {
                    color:#fff;
                    background:#84754C
                    }
                    .skin-blue .main-header .logo {
                    background-color: #84754C;
                    }


                    ")),

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


server <- function(input, output) {}

shinyApp(ui, server)

截屏：

标签： rshinyshiny-server

Answer 1

您需要确定要更改颜色的元素。.skin-blue .main-header .logo仅指改变颜色的部分，而不是整个顶栏。将代码更改为：

tags$style(HTML("

                .box.box-solid.box-primary>.box-header {
                color:#fff;
                background:#84754C
                }
                .skin-blue .main-header .logo {
                background-color: #84754C;
                }
                .skin-blue .main-header .navbar {
                background-color: #84754C;
                }

                "))