Minimzing sidebar disappears when in renderUI

[HugoGit39]

The sidebar totally disappears if I click the hamburger icon minimizing the sidebar

library(shiny)
library(bs4Dash)

ui <- tagList(
  uiOutput("app_ui")
)

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

  output$app_ui <- renderUI({

    dashboardPage(
      header = dashboardHeader(
        title = "Test",
        skin = "light"
      ),

      sidebar = dashboardSidebar(
        collapsed = FALSE,
        sidebarMenu(
          menuItem("Account", tabName = "account", icon = icon("user"))
        )
      ),

      body = dashboardBody(
        tabItems(
          tabItem(
            tabName = "account",
            h3("OK sidebar works")
          )
        )
      ),

      title = "Test"
    )
  })

}

shinyApp(ui, server)