R/mod_rules.R

In MarieEtienne/quizin: Rentrez vos questions sur Moodle

#' rules UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList 
mod_rules_ui <- function(id){
  ns <- NS(id)
  tagList(
    h2("Instructions"),
    
    tabsetPanel(
      tabPanel("Objectif de Quizin", 
               br(),
               uiOutput(ns('rules_obj'))),
      
      tabPanel("Instructions globales", 
               br(),
               uiOutput(ns('rules_instructions'))),
      
      tabPanel("Composition d'une question", 
               br(),
               uiOutput(ns('rules_comp'))),
      
      tabPanel("Syntaxe Markdown", 
               br(),
               uiOutput(ns('rules_markdown'))),
      
      tabPanel("Fichiers de plusieurs questions", 
               br(),
               uiOutput(ns('rules_multiple'))),

      tabPanel("Importer le fichier xml sur Moodle", 
               br(),
               uiOutput(ns('rules_import')))
    )
  )
}
    
#' rules Server Function
#'
#' @noRd 
mod_rules_server <- function(input, output, session){
  ns <- session$ns
  
  output$rules_obj <- renderUI({
    display_html_body_from_rmd("rules_obj.Rmd")
  })

  output$rules_instructions <- renderUI({
    display_html_body_from_rmd("rules_instructions.Rmd")
  })
  
  output$rules_comp <- renderUI({
    display_html_body_from_rmd("rules_comp.Rmd")
  })
  
  output$rules_markdown <- renderUI({
    display_html_body_from_rmd("rules_markdown.Rmd")
  })
  
  output$rules_multiple <- renderUI({
    display_html_body_from_rmd("rules_multiple.Rmd")
  })

  output$rules_import <- renderUI({
    display_html_body_from_rmd("rules_import.Rmd")
  })
  
}
    
## To be copied in the UI
# mod_rules_ui("rules_ui_1")
    
## To be copied in the server
# callModule(mod_rules_server, "rules_ui_1")