Shiny Dashboard：实现侧边栏子项与主体按钮的双向跳转

要实现你需要的功能，核心是利用Shiny的updateTabItems()函数控制侧边栏标签的切换，同时给主体区域的按钮添加点击事件监听。以下是修改后的完整代码：

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    "User Name",
    subtitle = a(href = "#", icon("circle", class = "text-success"), "Online"),
    sidebarMenu(
      id = "tabs",  # 该ID是控制标签切换的核心标识
      menuItem(
        "Dashboard",
        tabName = "dashboard",
        icon = icon("dashboard"),
        menuSubItem(
          "Widgets",
          icon = icon("th"),
          tabName = "widgets"
        ),
        menuSubItem(
          "Charts",
          icon = icon("th"),
          tabName = "charts"
        )
      ))),
  dashboardBody(
    tabItems(
      tabItem("dashboard",
              # 为按钮添加唯一ID，用于服务器端监听点击事件
              tags$button(
                h1('This button takes me to the Widgets Panel'),
                id = "btn_widgets"
              ),
              br(),
              br(),
              tags$button(
                h1('This button takes me to the Charts Panel'),
                id = "btn_charts"
              )
      ),
      # 补充Widgets和Charts面板的示例内容
      tabItem("widgets",
              h2("Widgets Panel Content")
      ),
      tabItem("charts",
              h2("Charts Panel Content")
      )
    ))
)

server = function(input, output, session) {
  # 监听Widgets按钮点击，切换到对应面板
  observeEvent(input$btn_widgets, {
    updateTabItems(session, inputId = "tabs", selected = "widgets")
  })
  
  # 监听Charts按钮点击，切换到对应面板
  observeEvent(input$btn_charts, {
    updateTabItems(session, inputId = "tabs", selected = "charts")
  })
}

shinyApp(ui, server)

关键修改说明： #

1. 按钮添加ID：给主体区域的两个跳转按钮分别设置id="btn_widgets"和id="btn_charts"，让服务器端能识别并监听点击动作。
2. 服务器端监听与切换：使用observeEvent()监听按钮点击，调用updateTabItems()函数，通过session参数、侧边栏菜单的id="tabs"以及目标面板的tabName完成标签切换。
3. 补充面板内容：添加了widgets和charts对应的面板内容，方便验证跳转效果。

设置完成后：

• 点击侧边栏的"Dashboard"会显示带跳转按钮的面板
• 点击主体的跳转按钮，或者侧边栏的"Widgets"/"Charts"子菜单项，都会切换到对应的面板

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