server.R

server <- function(input, output, session) {

  observe_helpers(help_dir = "R/forecastModule-Files/helpfiles")

  observeEvent(input$selectQuarantine, {
    updateTabsetPanel(session, "tab",
      selected = "quarantineDuration"
    )
  })
  observeEvent(input$selectTTIQ, {
    updateTabsetPanel(session, "tab",
      selected = "ttiq"
    )
  })
  observeEvent(input$selectTs, {
    updateTabsetPanel(session, "tab",
      selected = "ts"
    )
  })
  observeEvent(input$selectTsDataQuality, {
    updateTabsetPanel(session, "tab",
      selected = "tsDataQuality"
    )
  })
  observeEvent(input$selectTrends, {
    updateTabsetPanel(session, "tab",
      selected = "trends"
    )
  })
  observeEvent(input$selectTables, {
    updateTabsetPanel(session, "tab",
      selected = "tables"
    )
  })
  observeEvent(input$selectForecast, {
    updateTabsetPanel(session, "tab",
      selected = "forecast"
    )
  })
  observeEvent(input$selectLagebeurteilung, {
    updateTabsetPanel(session, "tab",
      selected = "lagebeurteilung"
    )
  })
  observeEvent(input$selectVaccinations, {
    updateTabsetPanel(session, "tab",
      selected = "vaccinations"
    )
  })

  ttiqServer("ttiq")

  quarantineDurationServer("quarantineDuration")

  tsServer("ts", global_session = session)

  tsDataQualityServer("tsDataQuality")

  trendsServer("trends")

  tablesServer("tables")

  forecastServer("forecast")

  lagebeurteilungServer("lagebeurteilung")

  vaccServer("vaccinations")

}