单击另一个菜单项时，使用renderMenu的RShiny中的动态边栏菜单将消失

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      menuOutput("sidebarMenu")
    ),
    mainPanel(
      textOutput("message")
    )
  )
)

server <- function(input, output) {
  output$sidebarMenu <- renderMenu({
    menuItems(
      menuItem("菜单项1", tabName = "menu1", icon = icon("dashboard")),
      menuItem("菜单项2", tabName = "menu2", icon = icon("file"))
    )
  })

  observeEvent(input$sidebarMenu, {
    if (input$sidebarMenu == "menu2") {
      output$sidebarMenu <- renderMenu({
        menuItems(
          menuItem("菜单项2", tabName = "menu2", icon = icon("file"))
        )
      })
    }
  })

  output$message <- renderText({
    paste("当前选中菜单项:", input$sidebarMenu)
  })
}

shinyApp(ui, server)