sc_min <- singleChoice(prompt = "Question?",
choices = c("Answer1", "Answer2", "Answer3"))
sc <- singleChoice(identifier = "id_task_1234",
title = "Single Choice Task",
content = "Pick up the right option",
prompt = "Plain text, can be used instead of content",
points = 2,
feedback = list(new("WrongFeedback",
content = list("Wrong answer"))),
calculator = "scientific-calculator",
files = "text_book.pdf",
choices = c("option 1", "option 2", "option 3"),
choice_identifiers = c("ChoiceA", "ChoiceB", "ChoiceC"),
shuffle = TRUE,
orientation = "vertical",
solution = 2)
Run the code above in your browser using DataLab