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

有没有办法让dateRangeInput的UI完全可见？最小化窗口，点击日期，出现这种情况：dateRangeInput ui的一部分隐藏在闪亮的仪表板标题下

enter image description here

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)

来源

2017-05-23 user270199

你能提供一个可重复的例子吗？ – SBista

@SBista请参阅上文。 – user270199

您可以使用CSS使用下面的标签，使.dropdown菜单比仪表盘头的更多的z指数：

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

你会得到这样的东西：

希望它有帮助！

来源

2017-06-05 11:36:43 SBista

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

回答

相关问题