使用navbarPage设计侧栏面板

我有这个用户界面

（可复制代码）：

库（闪亮）
ui是，将
id
放入
navbarPage
并使用
conditionalPanel
：

ui <- fluidPage(
  sidebarPanel(
    conditionalPanel(
      'input.navbar == "panel1"',
      checkboxInput("checkbox1", "Hello")
    ),
    conditionalPanel(
      'input.navbar == "panel1" || input.navbar == "panel2"',
      checkboxInput("checkbox1", "Goodbye")
    )
  ),
  mainPanel(
    navbarPage("choose page",
               navbarMenu("page1", 
                          tabPanel("panel1", 
                                   mainPanel(plotOutput("plot1"))
                          ), 
                          tabPanel("panel2", plotOutput("plot2"))
               ),
               navbarMenu("page2", tabPanel("panel3", plotOutput("plot3")), tabPanel("panel4", plotOutput("plot4"))),
               id = "navbar"
    )
  )
)

ui为什么它工作不好

library(shiny)

ui <- fluidPage(
  navbarPage("Choose page: " ,
    navbarMenu("Discovering the dataset",
      sidebarPanel(
                  checkboxInput("x", "x")
      ),

                tabPanel("volume", mainPanel(plotOutput("pp"))),
                tabPanel("amount salary"),
                tabPanel("map"),
                tabPanel("data"),
                tabPanel("animation"),
                tabPanel("wordcloud")

    ),
    navbarMenu("Options"),
    navbarMenu("More information")

)
)


server <- function(input, output){
  output$pp <- reactivePlot({plot(1,1)})
}

shinyApp(ui, server)

库（闪亮）
用户界面
library(shiny)

ui <- fluidPage(
  navbarPage("Choose page: " ,
    navbarMenu("Discovering the dataset",
      sidebarPanel(
                  checkboxInput("x", "x")
      ),

                tabPanel("volume", mainPanel(plotOutput("pp"))),
                tabPanel("amount salary"),
                tabPanel("map"),
                tabPanel("data"),
                tabPanel("animation"),
                tabPanel("wordcloud")

    ),
    navbarMenu("Options"),
    navbarMenu("More information")

)
)


server <- function(input, output){
  output$pp <- reactivePlot({plot(1,1)})
}

shinyApp(ui, server)