Does anyone know why this simple code is not working?
What I am trying to do: make the `structure` tab active whenever users click on the run button (`input$runButton`). When I click the run button, the value of `input$runButton` gets updated, but the tab is not changed to `structure`.

Here is a simple reproducible example:

**server.R**

```
function(input, output, session) {

  #RUN button
  observeEvent(input$runButton, {
    updateTabsetPanel(session, "allResults", 'structure')
  })

  #VAR SELECTION
  output$inputVars <- renderText({
    if (input$runButton == 0)
      return()
    print("Vars Selected")

  })

  #STRUCTURE RESULT
  output$structure <- renderText({
    if (input$runButton == 0)
      return()
    print("Structure Results")

  })

}

```

**ui.R**

```
fluidPage(

  titlePanel("Periscope Structure"),

  br(),

  sidebarPanel(
    fileInput(inputId="inFile", "Choose CSV File",
              accept = c(
                "text/csv",
                "text/comma-separated-values,text/plain",
                ".csv")
    ),

    checkboxInput("header", "Header", TRUE),
    numericInput("level", "Structure Level", 3, min = 2, max = 10),
    br(),
    actionButton("runButton", strong("Run!"))

  ),

  mainPanel(
      tabsetPanel(id = "allResults",
        tabPanel('Variable Selection', textOutput('inputVars')),
        tabPanel('Structure Result', textOutput('structure')))
      )
)

```

Thank you!