NumDataMoodle/exo.Moodle.template.R
1e008c580bcbmain

exo.Moodle.template.R
View Options

			## load package
			if(!require("knitr")) install.packages("knitr")
			if(!require("tth")) install.packages("tth")
			if(!require("base64enc")) install.packages("base64enc")
			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
			)

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