Изменить положение окна дневника dateRangeInput () в блестящем приложении - PullRequest
Новая
       23

Изменить положение окна дневника dateRangeInput () в блестящем приложении

1 голос
/ 10 марта 2020

Есть ли способ отобразить поле с доступными датами, немного меньшими, чем положение по умолчанию после нажатия dateRangeInput()? У меня есть проблема в моем исходном приложении, которую я не знаю, почему происходит, и поэтому я не могу воссоздать ее.

enter image description here

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

  }
)
...