Loading bin/generate_md_episodes.R +3 −3 Original line number Diff line number Diff line Loading @@ -8,7 +8,7 @@ generate_md_episodes <- function() { if (require("checkpoint")) { required_pkgs <- checkpoint:::projectScanPackages(project = "_episodes_rmd", checkpoint:::scanForPackages(project = "_episodes_rmd", verbose=FALSE, use.knitr = TRUE)$pkgs } else { stop("The checkpoint package is required to build the lessons.") Loading @@ -22,7 +22,7 @@ generate_md_episodes <- function() { install.packages(missing_pkgs) } ## find all the Rmd files, and generates the paths for their respective outputs ## find all the Rmd files, and generate the paths for their respective outputs src_rmd <- list.files(pattern = "??-*.Rmd$", path = "_episodes_rmd", full.names = TRUE) dest_md <- file.path("_episodes", gsub("Rmd$", "md", basename(src_rmd))) Loading Loading
bin/generate_md_episodes.R +3 −3 Original line number Diff line number Diff line Loading @@ -8,7 +8,7 @@ generate_md_episodes <- function() { if (require("checkpoint")) { required_pkgs <- checkpoint:::projectScanPackages(project = "_episodes_rmd", checkpoint:::scanForPackages(project = "_episodes_rmd", verbose=FALSE, use.knitr = TRUE)$pkgs } else { stop("The checkpoint package is required to build the lessons.") Loading @@ -22,7 +22,7 @@ generate_md_episodes <- function() { install.packages(missing_pkgs) } ## find all the Rmd files, and generates the paths for their respective outputs ## find all the Rmd files, and generate the paths for their respective outputs src_rmd <- list.files(pattern = "??-*.Rmd$", path = "_episodes_rmd", full.names = TRUE) dest_md <- file.path("_episodes", gsub("Rmd$", "md", basename(src_rmd))) Loading