R/vignette_engine.R

In rasciidoc: Create Reports Using R and 'asciidoc'

is_r_cmd_check <- function() {
    ("CheckExEnv" %in% search()) ||
        any(c("_R_CHECK_TIMINGS_", "_R_CHECK_LICENSE_") %in%
            names(Sys.getenv()))
}

vtangle <- function(file, ..., encoding = "UTF-8", quiet = FALSE) {
    if (is_r_cmd_check()) {
        file <- file.path(tools::file_path_sans_ext(file), "R")
        file.create(file)
        return(file)
    }
    knitr::purl(file, encoding = encoding, quiet = quiet, ...)
}

vweave <- function(file, ...) {
    render(file, envir = globalenv(), working_directory = getwd(),
           write_to_disk = TRUE, ...)
}