essay <- new("Essay", prompt = "Test task", title = "Essay",
identifier = "q1")
sc <- new("SingleChoice", prompt = "Test task", title = "SingleChoice",
choices = c("A", "B", "C"), identifier = "q2")
exam_section <- new("AssessmentSection", identifier = "sec_id",
title = "section", assessment_item = list(essay, sc))
exam <- new("AssessmentTestOpal", identifier = "id_test",
title = "some title", section = list(exam_section))
if (FALSE) {
# creates folder with zip (side effect)
createQtiTest(exam, "exam_folder", "TRUE")
}
Run the code above in your browser using DataLab