I have a bs4Dash dashboard. In this I have a long title: “ABC – Controll System”.
This title is also displayed correctly:

Now I want to display the short title “ABC” when I collapse the sidebar:

Here is my reproducible example:

library(shiny)
library(bs4Dash)

shinyApp(
  ui = dashboardPage(
    title = "Basic Dashboard",
    header = dashboardHeader(
      title = dashboardBrand(
        title = div(HTML("<strong>ABC</strong> - Controll System"), style="text-align: center;"),
        color = "primary"
      )
      ),
    sidebar = dashboardSidebar(),
    controlbar = dashboardControlbar(),
    footer = dashboardFooter(),
    body = dashboardBody()
  ),
  server = function(input, output) {}
)

Can someone help me? Many thanks in advance!