gap_min <- entry(content = list("Question and Test Interoperability",
textGap("QTI")))
gap <- entry(identifier = "id_task_1234",
title = "Essay Task",
content = list("Question and Test Interoperability:",
textGap("QTI")),
prompt = "Plain text, can be used instead of content",
points = 2,
feedback = list(new("ModalFeedback",
content = list("Model answer"))),
calculator = "scientific-calculator",
files = "text_book.pdf")
Run the code above in your browser using DataLab