From 4e8365b00c3e3ff39dacb895c64af6e8f883f619 Mon Sep 17 00:00:00 2001
From: Francois Michonneau <francois.michonneau@gmail.com>
Date: Wed, 22 Jun 2016 17:08:51 -0400
Subject: [PATCH] use anonymous function to generate markdown files

---
 bin/generate_md_episodes.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/bin/generate_md_episodes.R b/bin/generate_md_episodes.R
index 91bf512..cbb6783 100644
--- 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)