如何更改 Shinydashboard 中的侧边栏 menuItem("menu1") 字体颜色？

Question

I am trying to change the text color of menuItem() in shinydashboard sidebar, But my code is not working.

my code:

library(shinydashboard)

ui <- shinyUI(dashboardPage(
          dashboardHeader(title = "a"),
          dashboardSidebar(
            tags$style(HTML(".sidebar-menu li a { font-size: 100px; }")), 
            
            menuItem("first"),
            menuItem("second")
          ),
          dashboardBody(
            tags$style(HTML(".sidebar-menu li a { font-size: 100px; }")),
            tags$head(tags$style(HTML('
            .skin-blue .sidebar-menu > li.active > a {
            color:#ccff00; background-color:#ffffff
            },
            .skin-black .main-sidebar ELEMENT {
            color: #ffccdd;}
            .skin-blue .sidebar-menu > li:hover > a {font-color : #ffdd00;
              border-left-color: #ff0000 ; background-color:#ffffff;
            }'
                                      ))),
            
            "HI"
            
          )))

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

})

shinyApp(ui,server)

Any help on this would be greatly appreciable.

Answer 1

I have removed some of your styling code but this should give the desired color result:

library(shiny)
library(shinydashboard)

ui <- shinyUI(dashboardPage(
    dashboardHeader(title = "a"),
    dashboardSidebar(
        tags$style(HTML(".sidebar-menu li a { font-size: 100px; }")), 
        
        menuItem("first"),
        menuItem("second")
    ),
    dashboardBody(
        tags$style(HTML(".sidebar-menu li a { font-size: 100px; }")),
        tags$head(tags$style(HTML('
            .skin-blue .sidebar a {
                color: #ccff00;
            }'
        ))),
        
        "HI"
        
    )))

server <- shinyServer(function(input,output){
    
})

shinyApp(ui,server)