r - Shiny Date Picker 在菜单栏下方打开

我制作了一个应用程序，您需要在其中选择一个日期。当您使用日期选择器时，它会显示在菜单栏后面，并隐藏重要信息。



您可以看到日期选择器的顶行，可以查看您所在的月份并在月份之间快速浏览。

现在，如果日期放低一点，菜单栏将隐藏日期选择器的顶部并显示如下:



我怎样才能避免这种情况？我添加了使用下面的第二个日期选择器复制错误的代码

# Setup

library(shiny)
library(dplyr)
library(shinydashboard)


ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  ## Sidebar content
  dashboardSidebar(
    sidebarMenu(
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
      menuItem("Widgets", tabName = "widgets", icon = icon("th")),
      dateRangeInput('dateRange1',
                     label = 'Period 1, Current Month',
                     start = Sys.Date(), end = Sys.Date() + 9,
                     separator = ";",
                     weekstart = 1), # This opens correct
      dateRangeInput('dateRange1',
                     label = 'Period 1, Current Month',
                     start = Sys.Date(), end = Sys.Date() + 9,
                     separator = ";",
                     weekstart = 1) # This does NOT open correct!
    )
  ),
  dashboardBody(
    tabItems(
      # First tab content
      tabItem(tabName = "dashboard",
              fluidRow(
                box(plotOutput("plot1", height = 250)),

                box(
                  title = "Controls",
                  sliderInput("slider", "Number of observations:", 1, 100, 50)
                )
              )
      ),

      # Second tab content
      tabItem(tabName = "widgets",
              h2("Widgets tab content")
      )
    )
  )
)

server <- function(input, output) {
  set.seed(122)
  histdata <- rnorm(500)

  output$plot1 <- renderPlot({
    data <- histdata[seq_len(input$slider)]
    hist(data)
  })
}

shinyApp(ui, server)

最佳答案

保存数据选择器的 z-index 的 div 使用内联 CSS 设置为 820。这似乎不足以将其置于其他一切之上，因此您可以使用 style 标签增加它。

例如，您可以添加:

tags$style(HTML(".datepicker {z-index:99999 !important;}"))

在 dateRangeInput 之后。

关于r - Shiny Date Picker 在菜单栏下方打开，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/42549289/