使用actionLink与updateTabItems在shinydashboard中切换tabItem遇阻求助

先提供一个可正常运行的完整示例代码：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Tab切换示例"),
  dashboardSidebar(
    sidebarMenu(
      id = "sidebar_menu", # 必须给侧边栏菜单设置id，updateTabItems依赖此id定位目标
      menuItem("首页", tabName = "home", icon = icon("house")),
      menuItem("数据页", tabName = "data", icon = icon("database")),
      menuItem("设置页", tabName = "settings", icon = icon("gear"))
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "home",
              h2("首页面板"),
              actionLink("go_to_data", "点击跳转到数据页"),
              br(),
              actionLink("go_to_settings", "点击跳转到设置页")
      ),
      tabItem(tabName = "data",
              h2("数据面板")
      ),
      tabItem(tabName = "settings",
              h2("设置面板")
      )
    )
  )
)

server <- function(input, output, session) {
  # 监听第一个跳转链接的点击事件
  observeEvent(input$go_to_data, {
    updateTabItems(session, inputId = "sidebar_menu", selected = "data")
  })
  
  # 监听第二个跳转链接的点击事件
  observeEvent(input$go_to_settings, {
    updateTabItems(session, inputId = "sidebar_menu", selected = "settings")
  })
}

shinyApp(ui, server)

以下是常见的失效原因排查点：

• 未给sidebarMenu设置id：updateTabItems的inputId必须对应sidebarMenu的id，这是核心前提，没有id就无法定位到侧边栏菜单进行切换。
• tabName不匹配：updateTabItems中selected指定的名称，必须和目标tabItem的tabName完全一致，大小写、拼写都不能出错。
• 遗漏session参数：updateTabItems必须传入session对象，缺少该参数会导致函数无法正常触发tab切换逻辑。
• actionLink的id与监听事件不匹配：observeEvent监听的input$xxx必须和actionLink设置的id完全对应，比如actionLink的id是go_to_data，监听事件就必须是input$go_to_data。
• 侧边栏菜单与tabItem层级错误：确保每个menuItem的tabName都有对应的tabItem，且没有嵌套结构错误。

内容的提问来源于stack exchange，提问作者user3148607