NumDataMoodle/exo.Moodle.template.R
3189c9372675pandoc-converter

exo.Moodle.template.R
View Options

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

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


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


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

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

			# generate Moodle exo XML file
			exams2moodle(
			file = exo,
			name = "2024.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 = "source",
			rule = "none",
			n = 1
			)