Nothing
test_that("no answer", {
expect_error(longmcq(c("A", "B")))
})
test_that("apostrophe works", {
html <- longmcq(c(answer="will", "won't", "might"))
expect_equal(grep("<span>won't</span>", html, fixed = TRUE), 1L)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.