r - 如何创建自定义 Shinydashboard 皮肤

Question

我正在制作 Shiny 的仪表板，并希望皮肤上的颜色与 Shiny 文档 ( skins available in shiny ) 中可用的颜色不同

我想要 ('#2666cc','rgb(38, 102, 204)') 这种皮肤颜色。有可能在 Shiny 的仪表板上吗？

Dashboard

想要高亮区域的新颜色。

Answer 1

在您发布的链接中，有一个 CSS 部分，它解释了所有内容。但首先，这应该没问题:)

library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Custom font"),
  dashboardSidebar(
    # Custom CSS to hide the default logout panel
    tags$head(tags$style(HTML('.logo {
                              background-color: #2666cc !important;
                              }
                              .navbar {
                              background-color: #2666cc !important;
                              }
                              '))),

    # The dynamically-generated user panel
    uiOutput("userpanel")
  ),
  dashboardBody()
)

server <- function(input, output, session) {
  output$userpanel <- renderUI({
    # session$user is non-NULL only in authenticated sessions
    if (!is.null(session$user)) {
      sidebarUserPanel(
        span("Logged in as ", session$user),
        subtitle = a(icon("sign-out"), "Logout", href="__logout__"))
    }
  })
}

shinyApp(ui, server)