# CRAN complains about elapsed times
if (fritools::is_running_on_fvafrcu_machines()) {
wd <- file.path(tempdir(), "rasciidoc")
dir.create(wd)
file <- system.file("files", "minimal", "knit.Rasciidoc",
package = "rasciidoc")
file.copy(file, wd)
r <- rasciidoc::render(file.path(wd, basename(file)),
write_to_disk = getOption("write_to_disk"),
asciidoc_args = "-b slidy")
if (isTRUE(getOption("write_to_disk"))) {
dir(wd, full.names = TRUE)
} else {
dir(tempdir(), full.names = TRUE)
}
unlink(wd, recursive = TRUE)
}
Run the code above in your browser using DataLab