exo.Moodle.template.R
34574d7ce4f2main

exo.Moodle.template.R
View Options

			# options(repos = c(CRAN = "https://cloud.r-project.org"))

			## ---- FormationLoadPackages
			# load package
			if (!require("exams")) install.packages("exams")
			library("exams")

			## ---- FormationFolder
			# for data export
			currentdir.wd <- getwd()
			script.path <- paste0(currentdir.wd, "/R/")
			data.path <- paste0(currentdir.wd, "/data/")
			fig.path <- paste0(currentdir.wd, "/fig/")
			statement.path <- paste0(currentdir.wd, "/statement/")

			## ---- FormationSeedExo
			# set the seed
			set.seed(2022)
			# set the exercises
			exo <- c("prefixe_template_specific.Rnw")

			## ---- FormationHTML
			# export as HTML for a quick check
			exams2html(
			file = exo,
			encoding = "UTF-8",
			converter = "pandoc",
			edir = statement.path,
			template = "plain8",
			n = 1
			)

			## ---- FormationXML
			# generate Moodle exo XML file
			exams2moodle(
			file = exo,
			name = "Formation",
			encoding = "UTF-8",
			converter = "pandoc",
			dir = "output",
			cloze = list(
			cloze_mchoice_display = "MULTIRESPONSE",
			shuffle = TRUE,
			eval = list(
			partial = TRUE,
			negative = FALSE,
			rule = "true"
			)
			),
			edir = statement.path,
			rule = "none",
			n = 1
			)