# NOT RUN {
data(lipsum_text)
qdat <- quilt_form_data(prompt = "Label this text: ", text = lipsum_text$text,
response_type = "scale", nlow = 1, nhigh = 10, addID = T)
quilt_form(input_data = qdat, page_break_every = 1,
question_type = "multianswer", filename = "test/testing.txt")
# }
Run the code above in your browser using DataLab