shinyServer(function(input, output, session) {
observe({
# TRUE if input$controller is even, FALSE otherwise.
x_even <- input$controller %% 2 == 0
# Change the selected tab.
# Note that the tabset container must have been created with an 'id' argument
if (x_even) {
updateTabsetPanel(session, "inTabset", selected = "panel2")
} else {
updateTabsetPanel(session, "inTabset", selected = "panel1")
}
})
})
Run the code above in your browser using DataLab