essay <- new("Essay", prompt = "Test task", title = "Essay")
if (FALSE) {
# creates folder with XML (side effect)
createQtiTask(essay, "result")
# creates folder with zip (side effect)
createQtiTask(essay, "result", zip = TRUE)
}
Run the code above in your browser using DataLab