r - 在闪亮的应用程序中更改 dateRangeInput() 日记框的位置

Question

有没有办法在单击 a 后显示可用日期略低于默认位置的框dateRangeInput()？我的原始应用程序中有一个问题，我不知道为什么会发生，因此我无法重新创建它。

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"))
    })

  }
)

标签： rshinydate-range