导航到ShinyDashboard中的特定侧栏菜单项？

（来自闪亮谷歌集团的交叉帖子，）

如何导航到ShinyDashboard中的特定侧栏菜单项

sidebarMenu(
    menuItem("Menu Item 1")
    menuItem("Menu Item 2")
)

i、 e.如何在“菜单项1”页面上放置链接到“菜单项2”的按钮

要在选项卡之间导航，我正在使用UpdateTablePanel函数：

observeEvent(input$go,{
updateTabsetPanel(session, "tabset1", selected = "Step 2")
})

我相信我应该能够使用类似的功能导航到侧边栏菜单，但我不确定这是什么

非常感谢您的指点

谢谢

---

这就是你要找的吗？请注意，该示例取自

库（闪亮）
图书馆（shinydashboard）
没错，谢谢。我不确定如何设置侧边栏菜单的id
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Simple tabs"),
  dashboardSidebar(
    sidebarMenu(id = "tabs",
      menuItem("Menu Item 1", tabName = "one", icon = icon("dashboard")),
      menuItem("Menu Item 1", tabName = "two", icon = icon("th"))
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "one",h2("Dashboard tab content"),actionButton('switchtab', 'Switch tab')),
      tabItem(tabName = "two",h2("Widgets tab content"))
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$switchtab, {
    newtab <- switch(input$tabs, "one" = "two","two" = "one")
    updateTabItems(session, "tabs", newtab)
  })
}

shinyApp(ui, server)