uiOutput not works in the bs4DashControlbar

[artemklevtsov]

Hi,

Seems uiOutput not processed when placed in the bs4DashControlbar.

Minimal example:

library(shiny)
library(bs4Dash)

shinyApp(
  ui = bs4DashPage(
    title = "Test download",
    navbar = bs4DashNavbar(
      h3("Test",
         style = "color: white; margin-bottom: 0px;")
    ),
    sidebar = bs4DashSidebar(
      bs4SidebarMenu(
        bs4SidebarMenuItem(
          "Test",
          tabName = "test",
          icon = "truck-moving"
        )
      )
    ),
    controlbar = bs4DashControlbar(
      dateRangeInput("dd1", "r1"),
      uiOutput("test")
    ),
    body = bs4DashBody()
  ),
  server = function(input, output, session) {
    output$test <- renderUI({
      dateRangeInput("dd2", "r2")
    })
  }
)