rshinydashboard动态子菜单项不呈现

Question

ui.R：

library(shinydashboard)

dashboardPage(
  dashboardHeader(title='Dynamic Submenus'),
  dashboardSidebar(
    sidebarMenuOutput("menu")
  ),
  dashboardBody(
    tabItems(
      tabItem("default", "Hello, World!"),
      tabItem("dynatab", "Dynamic tab!")
    )
  )
)

server.R：

shinyServer(function(input, output) {
  output$menu <- renderMenu({
    sidebarMenu(
      menuItem("Dashboard", icon = icon("dashboard"), tabName = "default"),
      menuItem("Root Menu", icon = icon("book"),
        menuSubItem("Add New Submenu", icon = icon("plus"), tabName = "dynatab")
      )
    )
  })
})

---

该页面将呈现＆＃34;仪表板＆＃34;和＆＃34;根菜单＆＃34;，用＆＃34;＆lt;＆＃34;根菜单旁边显示它有子菜单但单击菜单项不提供下拉菜单。

有人知道为什么这不起作用吗？允许用户生成子菜单是我真正希望能够使用我的应用程序的。

Answer 1

您知道，Winston Chang刚刚将此问题的修复程序推送到shinydashboard github repo。