if (FALSE) {
# save the current options
(opt <- readtext_options())
# set higher verbosity
readtext_options(verbosity = 3)
# read something in here
if (!interactive()) pkgload::load_all()
DATA_DIR <- system.file("extdata/", package = "readtext")
readtext(paste0(DATA_DIR, "/txt/UDHR/*"))
# reset to saved options
readtext_options(opt)
}
Run the code above in your browser using DataLab