title: Shiny Layout - Header panel with navlist / navbarpage
body: <p>I need to the following Shiny Layout:</p>
  
  <ol>
  <li><p>Header Panel - With a date range filter. This will be common to all panels (below)</p></li>
  <li><p>Below the Header Bar, a navigation bar with 3 distinct tab panels (lets call them Tab Panel1, Tab Panel 2, Tab PaAnel 3). Each of these Tab PAnels will have their own filters and display some charts. </p></li>
  </ol>
  
  <p>I have tried navbarPage, navlistPAnel without success. </p>
  
  <p>navbarPage attempt: I dont see the date filter </p>
  
  <pre><code>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"))
  ))
  </code></pre>
  
  <p>navlistPanel attempt: Again I dont see the date filter in the header</p>
  
  <pre><code>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")
     )
  ))
  </code></pre>