sliderInput in dashboardControlbar can break the page layout

[ismirsehregal]

Clicking on the overlapping parts of a sliderInput breaks the page layout:

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

shinyApp(
  ui = dashboardPage(
    options = list(sidebarExpandOnHover = TRUE),
    header = dashboardHeader(),
    sidebar = dashboardSidebar(minified = TRUE, collapsed = TRUE),
    body = dashboardBody(
      lapply(1:20, box, width = 12, title = "box")
    ),
    controlbar = dashboardControlbar(
      fluidPage(
        sliderInput("mySlider", label = "mySlider", min = Sys.time()-10, max = Sys.time(), value = c(Sys.time()-1, Sys.time()))
        )
    ),
    title = "DashboardPage"
  ),
  server = function(input, output) { })