css - 如何在Shinydashboard中更改所选menuItem的背景颜色？

我提供了一个简单的示例代码。如果选择了Widgets，则Widgets menuItem的背景色应更改。

代码如下

    ## Only run this example in interactive R sessions
if (interactive()) {

  ui <- dashboardPage(
    dashboardHeader(title = "Simple tabs"),
    dashboardSidebar(
      sidebarMenu(

        menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
        menuItem("Widgets", tabName = "widgets", icon = icon("th"))
      )

    ),
    dashboardBody(
      tabItems(
        tabItem(tabName = "dashboard",
                h2("Dashboard tab content")
        ),
        tabItem(tabName = "widgets",
                h2("Widgets tab content")
        )
      )
    )
  )

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


    }


}
shinyApp(ui, server)

我应该添加CSS标签吗？先感谢您！

最佳答案

尝试使用toggleClass函数在CSS类之间进行切换。
用法和示例可以在here中找到。