如何使用` `renderMenu` `在shiny (shinydashboard)中动态添加额外的带有操作按钮的` `sidebarMenu`s？

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenuOutput("menu")
  ),
  dashboardBody()
)

server <- function(input, output, session) {
  output$menu <- renderMenu({
    sidebarMenu(
      menuItem("Home", tabName = "home"),
      menuItem("Page 1", tabName = "page1"),
      menuItem("Page 2", tabName = "page2"),
      menuItem("Add Menu", icon = icon("plus"), 
               menuSubItem("Submenu 1", tabName = "submenu1"),
               menuSubItem("Submenu 2", tabName = "submenu2")
      )
    )
  })
}

shinyApp(ui, server)