data.table::setDTthreads(1)
if (FALSE) {
my_questionnaire <- list(
page_first_freetext(),
page_second_freetext(),
page_select_suggestion(),
page_none_selected_freetext(),
page_followup(1),
page_followup(2)
)
if (interactive()) {
app(questionnaire = my_questionnaire)
}
}
Run the code above in your browser using DataLab