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

Question

我正在使用 R shiny 更改导航栏页面的颜色。

app.R

library(shiny)

ui <- shinyUI(
  bootstrapPage(
    navbarPage(title = NULL, id = "navbar",
               navbarMenu("fruits",
                          tabPanel("apple"),
                          tabPanel("orange")
               ),
               navbarMenu("name",
                          tabPanel("jon"),
                          tabPanel("leon")
               ),
               tabPanel("water")
    ),
    
    tags$style(HTML("
        .navbar-default .navbar-brand {color:white;}
        .navbar-default .navbar-brand:hover {color:white;}
        .navbar { background-color:red;}
        .navbar-default .navbar-nav > li > a {color:white;}
        .navbar-default .navbar-nav > .active > a,
        .navbar-default .navbar-nav > .active > a:focus,
        .navbar-default .navbar-nav > .active > a:hover {color:black;background-color:white;}
        .navbar-default .navbar-nav > li > a:hover {color:white;background-color:red;text-decoration}
                  "))
  )
)

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

shinyApp(ui, server)

我想在 navbarMenu 中选择 tabPanel 时更改颜色。 在图像中，“苹果”被选中，背景颜色为蓝色。 是否可以将其更改为红色？ 谢谢你。

Answer 1

将此样式添加到tags$style ：

.dropdown-menu >.active > a {background-color:red;}