r - 在 bs4Dash R 闪亮应用程序中永久更改导航栏主题颜色

Question

我在闪亮的应用程序中使用 bs4Dash（版本 >2.0），但我无法将导航栏颜色（无论暗/亮主题永久更改）更改为黄色（#ffc107）。

您可以查看 中给出的最小示例?bs4Dash::skinSelector()。虽然可以从右侧控制栏中的“导航栏主题”菜单将颜色更改为黄色，但我需要将标题颜色修复或默认为黄色。

这是 skinselecter() 中给出的最小示例。请使用来自 github 的 bs4dash 版本 > 2.0。

if (interactive()) {
 library(shiny)
 library(bs4Dash)
 
 shinyApp(
   ui = dashboardPage(
     header = dashboardHeader(),
     sidebar = dashboardSidebar(
      sidebarMenu(
       menuItem(
        text = "Item 1"
       ),
       menuItem(
        text = "Item 2"
       )
      )
     ),
     body = dashboardBody(),
     controlbar = dashboardControlbar(skinSelector(), pinned = TRUE),
     title = "Skin Selector"
   ),
   server = function(input, output) { }
 )
}

Answer 1

通过包含以下css，我能够解决这个问题。

.navbar-gray-dark {
    background-color: #ffc107;         
      }
.navbar-white {
background-color: #ffc107; 
}