Question

我需要以下闪亮布局：

标题面板 - 使用日期范围过滤器。这对所有小组都是通用的（见下文）
在页眉栏下方，有一个带有3个不同选项卡面板的导航栏（我们称之为Tab Panel1，Tab Panel 2，Tab PaAnel 3）。这些Tab PAnels中的每一个都有自己的过滤器并显示一些图表。

我尝试过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")
   )
))

闪亮布局 - 带有navlist / navbarpage的标题面板

0 个答案: