Using Run all chunks
is equivalent to:
- Create a temporary R file
- Use
knitr::purl
to extract all the R chunks into the temp file
- Use
source()
to run the file
- Delete the temp file
Like this:
tempR <- tempfile(fileext = ".R")
library(knitr)
purl("SO-tag-package-dependencies.Rmd", output=tempR)
source(tempR)
unlink(tempR)
But you will want to turn this into a function. This is easy enough, except you have to use sys.source
to run the R script in the global environment:
runAllChunks <- function(rmd, envir=globalenv()){
tempR <- tempfile(tmpdir = ".", fileext = ".R")
on.exit(unlink(tempR))
knitr::purl(rmd, output=tempR)
sys.source(tempR, envir=envir)
}
runAllChunks("SO-tag-package-dependencies.Rmd")
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…