Script to knit `.rmd` to `.md` to `.html` files.

rmd_knitter.R

library(knitr)
library(markdown)
dir <- "."

# knit R markdown to markdown
files <- list.files(dir, "\\.rmd")
for (f in files)
  knit(f, sub("\\.rmd$", ".md", f), envir = new.env())

# generate html versions
files <- list.files(dir, "\\.md")
for (f in files)
  markdownToHTML(f, sub("\\.md$", ".html", f))

#markdownHTMLOptions()
#markdownExtensions()