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

Question

I have included a simple example code. If I selected Widgets , the background color of the Widgets menuItem should change.

The code is as follows

    ## 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)

Should I add a CSS tag? Thank You in advance!

Answer 1

Try the toggleClass function to toggle between CSS classes. Usage and examples can be found here .