Change the color of the icon that hides and displays dashboardControlbar() in shinydashboardPlus()

Question

How can we change the color of the icon in the upper right corner that hides and displays dashboardControlbar() in 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)