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

页面将呈现 "Dashboard" 和 "Root Menu"，根菜单旁边有一个“<”表示它有子菜单，但单击菜单项不会提供下拉菜单。

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

Answer 1

如你所知，Winston Chang 刚刚将此问题的修复推送到 shinydashboard github repo。

rshinydashboard 动态子菜单项未呈现

rshinydashboard dynamic submenu items not rendering

r

shiny

shiny-server