如何在shinydashboard中更改所选menuItem的背景颜色？

Question

我已经包含了一个简单的示例代码。如果我选择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标签吗？提前谢谢！

Answer 1

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