R/app_server.R

In ArthurData/sqlnstructor: Learn and practice SQL

#' @import shiny
app_server <- function(input, output, session) {

  observeEvent(input$go_learn, {
    updateNavbarPage(session, "navbar-nav", "learn_intro")
  })

  # Home module ----
  mod_home_server(id = "home")

  # Learn modules ----
  # callModule(module = mod_learn_select_server, id = "learn_select")

  # Exercice modules ----
  mod_exercise_mtcars_server("exercise_mtcars")
  # callModule(module = mod_exercice_players_server, id = "exercice_players")

  # Contrib module ----
  mod_contrib_server(id = "contrib")

  # News module ----
  mod_news_server(id = "news")
}