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") 
    ) 
    ) 
    }) 
}) 

---

頁面將呈現 「控制面板」 和 「根菜單」，具有「 <「旁邊的根菜單指示它有子菜單，但單擊菜單項不會提供下拉菜單。

有人知道爲什麼這不起作用嗎？允許用戶生成子菜單是我真的希望能夠對我的應用程序做的事情。

Answer 1

大家知道，溫斯頓張把這個問題的解決方案推到了shinydashboard github repo。