Переместите правую боковую панель ниже в Shinydashboard плюс

Question

У меня внизу блестящая приборная панель, и я поместил selectInput() в ее заголовок. В результате эта часть моей правой боковой панели скрыта, в то время как левая боковая панель также не соответствует заголовку. Есть ли способ показать скрытую часть правой боковой панели, переместив ее ниже? Я использую минимальный пример.

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

shinyApp(
  ui = tags$body(class="skin-blue sidebar-mini control-sidebar-open", dashboardPagePlus(
    header = dashboardHeaderPlus(
      tags$li(selectInput("variable", "Variable:",
                   c("Cylinders" = "cyl",
                    "Transmission" = "am",
                   "Gears" = "gear")),
                          class= 'dropdown'),
      enable_rightsidebar = TRUE,
      rightSidebarIcon = "gears"
    ),
    sidebar = dashboardSidebar(),
    body = dashboardBody(
    ),
    rightsidebar = rightSidebar(
      background = "dark",
      rightSidebarTabContent(
        id = 1,
        title = "Tab 1",
        icon = "desktop",
        active = TRUE,
        sliderInput(
          "obs",
          "Number of observations:",
          min = 0, max = 1000, value = 500
        )
      )
    ),
    title = "Right Sidebar"
  )),
  server = function(input, output) {
  }
)