如何在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類之間進行切換。 用法和示例可以在這里找到。