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