dd <- new("InlineChoice",
response_identifier = "id_gap_1234",
points = 1,
choices = c("answer1", "answer2", "answer3"),
solution_index = 1,
choices_identifiers = c("OptionA", "OptionB", "OptionC"),
shuffle = TRUE)
Run the code above in your browser using DataLab