Nothing
Sys.setenv("R_TESTS" = "")
library("testthat")
library("readtext")
# save, then reset, readtext options
opts <- readtext_options()
readtext_options(reset = TRUE)
# set the soon-to-be-official-R-policy condition
Sys.setenv("_R_CHECK_LENGTH_1_CONDITION_" = TRUE)
test_check("readtext")
# restore the options
readtext_options(opts)
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.