如何更改bs4Dash中navbarTab的字体颜色

Question

我正在使用 bs4Dash R 包构建仪表板。我希望我的导航栏是彩色的，这就是为什么我在

status = "primary"

参数中指定

dashboardHeader()

并在

color = "primary"

参数中指定

dashboardBrand()

。

我的代码看起来像这样

library(shiny)
library(bs4Dash)
library(fresh)

ui <- dashboardPage(
  title = "Title",
  dark = NULL,
  help = NULL,
  sidebar = dashboardSidebar(disable = T),
  header = dashboardHeader(
    status = "primary",
    title = dashboardBrand(
      title = "My Dashboard",
      color = "primary"
    ),
    navbarMenu(
      id = "navmenu",
      navbarTab(tabName = "Item 1", text = "Item 1"),
      navbarTab(
        text = "Items",
        dropdownHeader("List"),
        navbarTab(tabName = "Sub Item 2", text = "Sub Item 2"),
        navbarTab(tabName = "Sub Item 3", text = "Sub Item 3"),
        navbarTab(tabName = "Sub Item 4", text = "Sub Item 4"),
        navbarTab(tabName = "Sub Item 5", text = "Sub Item 5"),
        navbarTab(tabName = "Sub Item 6", text = "Sub Item 6")
      ),
      navbarTab(tabName = "Item 7", text = "Item 7"),
      navbarTab(tabName = "Item 8", text = "Item 8")
    )
  ),
  body = dashboardBody(
    tabItems(
    )
  )
)

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

}

shinyApp(ui, server)

导航栏的颜色没问题，问题是现在我的下拉选项卡中的文本颜色不可见。我认为它们是白色的，以匹配其他选项卡的颜色（蓝色背景上的白色）。

假设我希望下拉菜单中的文本颜色为绿色，我该如何更改其颜色？我应该调整哪个参数来将其他导航栏选项卡的颜色更改为黄色（仅导航栏中的选项卡，而不是下拉菜单中的选项卡）？

Answer 1

这看起来像是一个可以在 Github 页面上报告的错误：https://github.com/RinteRface/bs4Dash/issues/

同时，您可以通过在正文中插入一些 CSS 来编辑子菜单项的颜色：

 body = dashboardBody(
    tags$head(
      tags$style(HTML("
       .dropdown-menu .nav-link {
  color: #000 !important;
}"
      ))
    ),
#...