闪亮布局-带有导航列表/navbarpage的标题面板

我需要修改以下闪亮的布局：

标题面板-带有日期范围筛选器。这对所有面板都是通用的（如下所示）

标题栏下方是一个导航栏，其中有3个不同的选项卡面板（我们称它们为tab Panel 1、tab Panel 2、tab PaAnel 3）。每个选项卡面板都有自己的过滤器并显示一些图表

我尝试过navbarPage和navlistPAnel，但没有成功

navbarPage尝试：我看不到日期筛选器

shinyUI(navbarPage("Wiser",
                   header = headerPanel("Choose Dates", dateRangeInput("id1", "Date Range:",
                                                              min = "2015-03-01",
                                                              max   = Sys.Date(),
                                                              start = "2015-07-01", 
                                                              end = "2015-07-31")),
                   tabPanel("Component 1"),
                   tabPanel("Component 2"),
                   navbarMenu("More",
                              tabPanel("Sub-Component A"),
                              tabPanel("Sub-Component B"))
))

navlistPanel尝试：同样，我在标题中没有看到日期过滤器

shinyUI(fluidPage(

  titlePanel("Application Title"),
  headerPanel("Choose Dates", dateRangeInput("id1", "Date Range:",
                             min = "2015-03-01",
                             max   = Sys.Date(),
                             start = "2015-07-01", 
                             end = "2015-07-31")),
  navlistPanel(
   tabPanel("Component 1"),
    tabPanel("Component 2"),
   tabPanel("Component 3")
   )
))

---

您是否尝试过在

navbarPage

中使用

header=fluidRow（…）

？