entry_gaps <- new("Entry", content = list("In mathematics, the common
logarithm is the logarithm with base", new("NumericGap",
response_identifier = "numeric_1",
solution = 10,
placeholder = "it is a number"),
". It is also known as the decimal", new("TextGap",
response_identifier = "text_1",
solution = "logarithm",
placeholder = "it is a text"),
"."),
title = "entry with number and text in answers",
identifier = "entry_example")
entry_dropdown <- new("Entry", content = list("In mathematics, the common
logarithm is the logarithm with base", new("InlineChoice",
response_identifier = "numeric_1",
choices = c("10", "7", "11")),
". It is also known as the decimal", new("InlineChoice",
response_identifier = "text_1",
choices = c("logarithm", "limit")),
"."),
title = "entry with dropdown lists for answers",
identifier = "entry_example")
Run the code above in your browser using DataLab