R/zzz.R

In bbTomas/slidify: Generate reproducible html5 slides from R markdown

.onLoad <- function(libname, pkgname){
  options(rstudio.markdownToHTML = function(inputFile, outputFile){
    if (readLines(inputFile)[1] == '---'){
      slidify(inputFile, knit_deck = FALSE)
    } else {
      markdownToHTML(inputFile, outputFile)
    }
  })
}