在R中选择navbarMenu中的tabPanel时，颜色会发生变化

我正在用R-Shining更改导航栏页面的颜色

应用程序R

库（闪亮）
ui将此样式添加到
标记$style
：

.dropdown menu>.active>a{背景色：红色；}


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)