如何在shinydashboard中更改侧栏menuItem("menu1")字体颜色？

ui <- shinyUI(
  dashboardPage(
    dashboardHeader(),
    dashboardSidebar(
      sidebarMenu(
        menuItem("menu1")
      )
    ),
    dashboardBody(),
    tags$head(
      tags$style(
        HTML("
          /* 自定义CSS样式 */
          .sidebar-menu li a {
            color: red; /* 设置字体颜色为红色 */
          }
        ")
      )
    )
  )
)