if (FALSE) {
rmd <- system.file("extdata/template01.Rmd", package = "rexer")
exercises <- system.file("extdata/exercises.csv", package = "rexer")
ex <- exam(
rmd = rmd,
examinees = NULL,
instances_num = 1,
random = TRUE,
reorder_exercises = TRUE
) |>
define_exercises_from_csv(exercises) |>
generate_document(out_dir = tempdir(), new_pages = 'all')
}
Run the code above in your browser using DataLab