小编CCl*_*ire的帖子

我的仪表板有问题。我想创建一个动态的侧边栏菜单，但是默认情况下，菜单项不起作用。用户必须对其进行显示才能显示出来。我在这个问题上找到了一个例子 https://github.com/rstudio/shinydashboard/issues/71 但该解决方案不起作用。如果您有想法...先谢谢您

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Dynamic sidebar"),
  dashboardSidebar(
    sidebarMenuOutput("menu")
  ),
  dashboardBody(tabItems(
    tabItem(tabName = "dashboard", h2("Dashboard tab content"))
  ))
)

server <- function(input, output) {
  output$menu <- renderMenu({
    sidebarMenu(id="mytabs",
      menuItem("Menu item", tabName="dashboard", icon = icon("calendar"))
    )
  })
}

shinyApp(ui, server)