小编Ser*_*vet的帖子

我在R shinydashboard中创建了动态sibebar菜单.即使我使用selected = TRUE,在此动态模式下启动时也不会选择与菜单关联的menuItem.

如何确保在此动态模式下启动时显示哪个menuItem的内容？

我一直在搜索类似的帖子.到目前为止找不到任何有用的东西.updateTabItems()似乎没有用.

有任何想法吗？谢谢你提前.

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(title = "Dynamic sidebar"),
  dashboardSidebar(
    sidebarMenuOutput("menu")
  ),
  dashboardBody(
        tabItems(
          tabItem(tabName = "m1", p("Menu content 1") ),
          tabItem(tabName = "m2", p("Menu content 2") )
    )
   )
)
server <- function(input, output) {
  output$menu <- renderMenu({
    sidebarMenu(
      menuItem("Menu item1", tabName="m1", icon = icon("calendar")),
      menuItem("Menu item2", tabName="m2", icon = icon("database"),selected = TRUE)
    )
  })
}
shinyApp(ui, server)

编辑:Romain的anwser发生的缩进问题