tests/manual/test-pushbullet.R

In pmcharrison/psychTestR: Framework for delivering psychological tests via Shiny

library(psychTestR)
make_item <- function(n) {
  NAFC_page(label = paste0("q", n),
            prompt = paste0("Question ", n),
            choices = as.character(1:10),
            save_answer = TRUE,
            on_complete = function(state, opt, ...) save_results_to_disk(
              complete = FALSE, state = state, opt = opt),
            arrange_vertically = FALSE)
}