Перейдите к определенному пункту меню боковой панели в ShinyDashboard?

Question

(перекрестный столб от блестящих групп google, https://groups.google.com/forum/#!topic/shiny-discuss/CvoABQQoZeE)

Как можно перейти к определенному пункту меню боковой панели в ShinyDashboard?

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

то, как я могу поставить кнопку на «Меню Пункт 1» страницы, который будет ссылаться «Пункт меню 2»?

Для перемещения между вкладками Я использую функцию updateTabsetPanel:

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

Я считаю, что я должен быть в состоянии использовать подобную функцию для навигации в меню боковой панели, но я не уверен, что это такое.

Любые указатели высоко оценили

Спасибо

Iain

Answer 1

Это то, что вы ищете? обратите внимание, что пример взят из Change the selected tab on the client

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)