Provide option to export as beamer pdf using pandoc.

[ramnathv]

Provide option to export as beamer pdf using pandoc.

[ramnathv]

Here are some ideas.

pandoc <- function(..., path = 'pandoc', cmdOnly = FALSE){
  xargs <- list(...)
  nxargs <- names(xargs)
  nxargs <-ifelse(nxargs == "", "", sprintf("--%s=", nxargs))
  xcmd  <- paste(sprintf('%s%s', nxargs, xargs), collapse = " ")
  if (!cmdOnly) {
    system(sprintf('%s %s', path, xcmd))
  } else {
    xcmd
  }
}

pandoc(write = "beamer", "SLIDES.txt", output = 'example9.pdf', 
  cmdOnly = FALSE, variable="theme:CambridgeUS")