Switching from a tab to another one (shinydashboard)

[mbh]

Hello,

I'm trying to switch from a tab to another on by clicking a button. I almost succeeded, i just need to highlight the "good" tab in the sidebar. Any hint ?

library(shiny)
library(shinydashboard)


server = function(input, output) {
  output$button <- renderUI({
    tags$button("Click to switch tab", "class"="btn btn-default action-button",
                "data-toggle"="tab", "href"="#shiny-tab-tab2")
  })
}


ui = dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Tab1", tabName = "tab1"),
      menuItem("Tab2", tabName = "tab2"))
  ),
  dashboardBody(
    tabItems(
      tabItem("tab1",uiOutput("button")),
      tabItem("tab2", "tab2", "Done !")
    )
  )
)
runApp(list(ui=ui,server=server))

Thanks for helping,

Matthieu

[gjabel]

I was trying to do this too. Got a good reply on
stackoverflow.com/questions/27145572/dynamically-selecting-over-multiple-tabs-in-a-shiny-app