dateRangeInput ui 的一部分隐藏在闪亮的仪表板标题下答案

【问题标题】：Part of dateRangeInput ui gets hidden under the shiny dashboard headerdateRangeInput ui 的一部分隐藏在闪亮的仪表板标题下
【发布时间】：2017-05-23 10:56:48
【问题描述】：

有没有办法让dateRangeInput 的用户界面始终完全可见？最小化窗口并点击日期，会发生这种情况：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Home", tabName = "Home")
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "Home",
        fluidRow(
          br(),
          br(),
          br(),
          br(),
          br(),
          br(),
          box(
            dateRangeInput("daterange", "Date range:", start = "2001-01-01", end = "2010-12-31"),
            title="Select Dates", solidHeader=T, status="primary",width=6,height=250)
        )
      )
    )
  )
)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)

【问题讨论】：

你能提供一个可重现的例子吗？
@SBista 请见上文。

标签： r shiny shinydashboard

【解决方案1】：

您可以使用 css 使 .dropdown-menu 的 z-index 大于仪表板标题的 z-index，使用以下标记：

tags$div(tags$style(HTML( ".dropdown-menu{z-index:10000 !important;}")))

在您的应用程序用户界面中，它将如下所示：

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Home", tabName = "Home")
    )
  ),
  dashboardBody(

    tags$div(tags$style(HTML( ".dropdown-menu{z-index:10000 !important;}"))),

    tabItems(
      tabItem(tabName = "Home",
              fluidRow(
                br(),
                br(),
                br(),
                br(),
                br(),
                br(),
                box(
                  dateRangeInput("daterange", "Date range:", start = "2001-01-01", end = "2010-12-31"),
                  title="Select Dates", solidHeader=T, status="primary",width=6,height=250)
              )
      )
    )
  )
)

你会得到这样的东西：

希望对你有帮助！

【讨论】：