add tools to deal with episodes written in Rmd

[rnaseq-cwl-training.git] / bin / generate_md_episodes.R

diff --git a/bin/generate_md_episodes.R b/bin/generate_md_episodes.R
new file mode 100644 (file)
index 0000000..91bf512
--- /dev/null
+++ b/bin/generate_md_episodes.R
@@ -0,0 +1,15 @@
+if (require("knitr")) {
+    if (packageVersion("knitr") < '1.9.19') {
+        stop("knitr must be version 1.9.20 or higher")
+    }
+} else stop("knitr 1.9.20 or above is needed to build the lessons.")
+
+if (!require("stringr"))
+    stop("The package stringr is required for generating the lessons.")
+
+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])
+}