如何在R Shiny中的“navbarPage”菜单项之间同步“selectizeInput”？

library(shiny)

ui <- fluidPage(
  selectizeInput("menu_select", "选择菜单项", choices = c("菜单1", "菜单2", "菜单3")),
  navbarPage(
    "同步菜单项",
    tabPanel("菜单1", "这是菜单1的内容"),
    tabPanel("菜单2", "这是菜单2的内容"),
    tabPanel("菜单3", "这是菜单3的内容")
  )
)

server <- function(input, output, session) {
  observeEvent(input$menu_select, {
    selected_menu <- input$menu_select
    updateNavbarPage(session, "同步菜单项", selected = selected_menu)
  })
}

shinyApp(ui, server)