更改在shinydashboardPlus()中隐藏和显示shinydashboardPlus()的图标的颜色

Question

如何更改右上角的图标的颜色，在shinydashboardPlus()中隐藏和显示shinydashboardPlus()？

## app.R ##
library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

ui <- dashboardPage(
  dashboardHeader(
    
  ),
  dashboardSidebar(),
  dashboardBody(
    
  ),
  controlbar = dashboardControlbar()
  
)

server <- function(input, output) {
  
}

shinyApp(ui = ui, server = server)

Answer 1

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

ui <- dashboardPage(
  dashboardHeader(
  ),
  dashboardSidebar(),
  dashboardBody(
    tags$head(
      tags$style(
        HTML(
          "[data-toggle=control-sidebar] {
            color: red !important;
          }"
        )
      )
    )
  ),
  controlbar = dashboardControlbar()
  
)

server <- function(input, output) {
  
}

shinyApp(ui = ui, server = server)