mc_min <- multipleChoice(choices = c("option1", "option2", "option3"),
points = c(0, 0.5, 0.5))
mc <- multipleChoice(identifier = "id_task_1234",
title = "Multiple Choice Task",
content = "Pick up the right options",
prompt = "Plain text, can be used instead of content",
points = c(0, 0.5, 0.5),
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")
Run the code above in your browser using DataLab