# NOT RUN {
data(lipsum_text)
qdat <- quilt_form_data(prompt = "Label this text: ",
text = lipsum_text$text, response_type = "yesno",
addID = T)
qdat <- quilt_form_data(prompt = "Label this text: ",
text = lipsum_text$text, response_type = "options",
options = c("Not at all", "Somewhat", "Very much"),
addID = T)
qdat <- quilt_form_data(prompt = "Label this text: ",
text = lipsum_text$text, response_type = "scale",
nlow = 1, nhigh = 10, addID = T)
# }
Run the code above in your browser using DataLab