-src_rmd <- list.files(pattern = "??-*.Rmd$", path = "_episodes_rmd", full.names = TRUE)
-dest_md <- file.path("_episodes", gsub("Rmd$", "md", basename(src_rmd)))
+ if (length(missing_pkgs)) {
+ message("Installing missing required packages: ",
+ paste(missing_pkgs, collapse=", "))
+ install.packages(missing_pkgs)
+ }
+
+ ## find all the Rmd files, and generates 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)))
+
+ ## knit the Rmd into markdown
+ mapply(function(x, y) {
+ knitr::knit(x, output = y)
+ }, src_rmd, dest_md)