R Markdown PDF generator in portable version

[yihui]

A brief answer to give you an idea:

add_path = function(path) {
  s = .Platform$path.sep
  paths = c(path, unlist(strsplit(Sys.getenv('PATH'), s))
  Sys.setenv(PATH = paste(paths, collapse = s))
}