在R shiny中选择navbarMenu中的tabPanel时颜色变化

library(shiny)

ui <- fluidPage(
  navbarPage(
    "My App",
    tabPanel("Tab 1"),
    navbarMenu("Menu",
               tabPanel("Tab 2"),
               tabPanel("Tab 3")
    )
  )
)

server <- function(input, output) {
  
}

shinyApp(ui, server)

/* styles.css */

/* 改变选项卡的背景颜色 */
.navbar .navbar-nav .active > .nav-link,
.navbar .navbar-nav .nav-link.active,
.navbar .navbar-nav .nav-link.show,
.navbar .navbar-nav .show > .nav-link {
  background-color: #ff0000; /* 设置为红色 */
}

/* 改变选项卡的文字颜色 */
.navbar .navbar-nav .active > .nav-link,
.navbar .navbar-nav .nav-link.active,
.navbar .navbar-nav .nav-link.show,
.navbar .navbar-nav .show > .nav-link {
  color: #ffffff; /* 设置为白色 */
}

tags$head(
  tags$link(rel = "stylesheet", type = "text/css", href = "styles.css")
)