# training <- function(practice_items, num_items) {
#   c(
#     intro(practice_items),
#     repeatable_practice(practice_items),
#     psychTestR::one_button_page(sprintf("You are about to proceed to the main test, where you will answer %i questions similar to the ones you just tried. You won't receive any feedback on these questions. Some might be very difficult, but don't worry, you're not expected to get everything right. If you really don't know the answer, just give your best guess.", num_items))
#   )
# }
pmcharrison/cabat documentation built on May 2, 2023, 3:33 p.m.