R/mod_exercice_players.R

In ArthurData/sqlnstructor: Learn and practice SQL

# Exercice module : players

#' @title Exercice module : players
#' @description World Cup players
#'
#' @param id shiny id
#' @param input internal
#' @param output internal
#' @param session internal
#'
#' @rdname mod_exercice_players
#'
#' @keywords internal
#' @importFrom shiny NS tagList fluidRow
#' @importFrom shinyAce aceEditor
mod_exercice_players_ui <- function(id){
  ns <- NS(id)

  fluidRow(
    column(
      width = 12,
      tags$div(
        h1("World Cup players"),
        info_section("exercices/players/intro.Rmd")
      )
    )
  )
}

# Module Server
#' @rdname mod_exercice_players
#' @keywords internal
mod_exercice_players_server <- function(input, output, session){
  ns <- session$ns
}