time_1 <- as.POSIXct('2021-02-02 11:50:02') my_sec <- 10000 my_sol <- time_1 + my_sec
candidates <- time_1 + sample(-10000:10000, 500) my_answers <- make_random_answers(my_sol, candidates = candidates) check_answers(my_answers)
What date and time is found r my_sec
seconds after r time_1
?
exams::answerlist(my_answers, markup = "markdown")
extype: schoice
exsolution: r mchoice2string(c(TRUE, FALSE, FALSE, FALSE, FALSE), single = TRUE)
exname: dates 3
exshuffle: TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.