Get All Examples from an R Packag

all_examples.R

all_examples = function(path = ".", commentDontrun = FALSE) {
# list all the Rd files
  files = list.files(
    path = file.path(path, "man"),
    pattern = "Rd$",
    recursive = FALSE,
    full.names = TRUE)
  tfiles = sapply(files, function(x) {
    tfile = tempfile(fileext = ".R")
    # turn to examples
    tools::Rd2ex(x, out = tfile, commentDontrun = commentDontrun)
    if (!file.exists(tfile)) {
      tfile = NA
    }
    return(tfile)
  })
  # if something went wrong - delete that 
  tfiles = tfiles[!is.na(tfiles)]

  # read them all in
  res = lapply(tfiles, readLines)
  # you can unlist(res) and writeLines for a single Ex.R file
  return(res)
}