rmd2r.R

# knitr::purl(input_file, output_file, documentation = 2)

infile <- "your_filename.Rmd"
inpath <- "docs/"; outpath <- "scripts/"

name <- strsplit(infile, split = "\\.")[[1]][1]

knitr::purl(paste0(inpath, infile),
            paste0(outpath, name,
                   "_rmd2r_", format(Sys.time(), "%Y%m%d"),
                   ".R", sep = ""),
            documentation = 1)