Change the position of the dateRangeInput() diary box in shiny app

Is there a way to display the box with the available dates a little lower than the default position after clicking a dateRangeInput()? I have an issue in my original app which I do not know why happens and therefore I cannot recreate it.

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

shinyApp(
  ui = tags$body(class="skin-blue sidebar-mini control-sidebar-open", dashboardPagePlus(
    tags$head(
      tags$style(
        HTML(
          ".control-sidebar-tabs {display:none;}"
        )
      )
    ),
    header = dashboardHeaderPlus(
      enable_rightsidebar = TRUE,
      rightSidebarIcon = "gears"
    ),
    sidebar = dashboardSidebar(),
    body = dashboardBody(
    ),
    rightsidebar = rightSidebar(
      background = "dark",
      uiOutput("sel"),
      uiOutput("dr")
    ),
    title = "Right Sidebar"
  )),
  server = function(input, output) {
    output$dr <- renderUI({
      dateRangeInput("range_date", "Enter Date Range", start = "2001-01-01",
                     end   = "2010-12-31" , format = "yyyy-mm")
    })
    output$sel<-renderUI({
      selectInput("variable", "Variable:",
                  c("Cylinders" = "cyl",
                    "Transmission" = "am",
                    "Gears" = "gear"))
    })

  }
)