Make the controllbar icon changeable

[kleinerChemiker]

It would be great if the controllbar icon could be changed. E.g. add an "icon =" argument to dashboardControlbar()

[fernandoroa]

+1
for now we can do:

library(shiny)
library(bs4Dash)

shinyApp(
  ui = dashboardPage(
    header = dashboardHeader(),
    sidebar = dashboardSidebar(),
    controlbar = dashboardControlbar(
      overlay = TRUE,
      "Control bar content"
    ),
    footer = dashboardFooter(),
    body = dashboardBody(
      tags$h2("Main Content"),
      tags$script(HTML("
        document.addEventListener('DOMContentLoaded', function() {

          const controlbarToggle = document.getElementById('controlbar-toggle');

          if (controlbarToggle) {
            const icon = controlbarToggle.querySelector('i');
            if (icon) {
              icon.className = 'fas fa-cog'; 
              icon.setAttribute('aria-label', 'cog icon');
            }
          }
        });
      "))
    )
  ),
  server = function(input, output) {}
)