## Not run:
# 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")
# }
# })
# })
# ## End(Not run)
Run the code above in your browser using DataLab