+ ## where the Rmd files and the datasets are located
+ rmd_path <- "_episodes_rmd"
+ rmd_data <- file.path(rmd_path, "data")
+
+ ## where the markdown files and the datasets will end up
+ dest_path <- "_episodes"
+ dest_data <- file.path(dest_path, "data")
+
+ ## find all the Rmd files, and generates the paths for their respective outputs
+ src_rmd <- list.files(pattern = "??-*.Rmd$", path = rmd_path, full.names = TRUE)
+ dest_md <- file.path(dest_path, gsub("Rmd$", "md", basename(src_rmd)))
+
+ ## knit the Rmd into markdown
+ mapply(function(x, y) {