Merge pull request #62 from fmichonneau/fix-knitr-env

use anonymous function to generate markdown files
HPC-workshops · Jun 22, 2016 · 02b4ec1 · 02b4ec1
2 parents 0c9c153 + 4e8365b
commit 02b4ec1
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/bin/generate_md_episodes.R b/bin/generate_md_episodes.R
@@ -10,6 +10,6 @@ if (!require("stringr"))
 src_rmd <- list.files(pattern = "??-*.Rmd$", path = "_episodes_rmd", full.names = TRUE)
 dest_md <- file.path("_episodes", gsub("Rmd$", "md", basename(src_rmd)))
 
-for (i in seq_along(src_rmd)) {
-    knitr::knit(src_rmd[i], output = dest_md[i])
-}
+mapply(function(x, y) {
+        knitr::knit(x, output = y)
+    }, src_rmd, dest_md)