闪亮的navbarpage从下方绘制元素

这就是我试图解决的问题。我的navbarpage与下面的其他元素重叠。有没有办法把navbarpage放在后台？或者让daterange输入在其输入框下方显示其日历

在

posotion

参数中使用

fixed top

或

fixed bottom

会导致导航栏覆盖身体内容，除非添加填充

不过，添加填充并不能解决问题

这是一个可复制的示例-

ui <- fluidPage(
  fluidRow(class = 'headerrow', column(width = 12, style = "font-size: 30pt; line-height: 8vh; text-align:left; color:#FFFFFF; width = 100", tags$strong('Test')), tags$head(tags$style('.headerrow{height:8vh; background-color:#267dff}'))),
  navbarPage(
   'Navbar',
    tabPanel(
     'Menu1',
     sidebarPanel(
       selectInput('drink', 'Choose your poison', choices = c('Bloody Mary', 'Sex on the beach'), selected = 'Bloody Mary'),

       dateRangeInput('period', 'Date range', start = '2016-05-01', end = '2017-04-01', 
                   min = '2013-07-01', max = '2017-06-01', startview = 'year', format = 'mm/yyyy'),
    width = 2
  ),
  mainPanel(width = 10)
  ),
tabPanel('Menu2'),
tabPanel('Menu3'),
tabPanel('Menu4')
  )
)

server <- function(input, output){

}

shinyApp(ui, server)

---

ui尝试将
z-index
添加到div:
tags$style（HTML（“.datepicker{z-index:99999！important；}”）

库（闪亮）
用户界面
library(shiny)
ui <- fluidPage(
  fluidRow(class = 'headerrow', column(width = 12, style = "font-size: 30pt; line-height: 8vh; text-align:left; color:#FFFFFF; width = 100", tags$strong('Test')), tags$head(tags$style('.headerrow{height:8vh; background-color:#267dff}'))),
  navbarPage(
    'Navbar',
    tabPanel(
      'Menu1',
      tags$style(HTML(".datepicker {z-index:99999 !important;}")),
      sidebarPanel(
        selectInput('drink', 'Choose your poison', choices = c('Bloody Mary', 'Sex on the beach'), selected = 'Bloody Mary'),

        dateRangeInput('period', 'Date range', start = '2016-05-01', end = '2017-04-01', 
                       min = '2013-07-01', max = '2017-06-01', startview = 'year', format = 'mm/yyyy'),
        width = 2
      ),
      mainPanel(width = 10)
    ),
    tabPanel('Menu2'),
    tabPanel('Menu3'),
    tabPanel('Menu4')
  )
)

server <- function(input, output){}

shinyApp(ui, server)