if (interactive()){
library(shiny)
library(shiny.semantic)
ui <- semanticPage(
actionButton("changetab", "Select Second Tab"),
tabset(
tabs = list(
list(menu = "First Tab", content = "First Tab", id= "first_tab"),
list(menu = "Second Tab", content = "Second Tab", id = "second_tab")
),
active = "first_tab",
id = "exampletabset"
)
)
server <- function(input, output, session) {
observeEvent(input$changetab,{
update_tabset(session, "exampletabset", "second_tab")
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab