R/run_examples_from_package.R

In vlulla/vlutils: Common utilities that I find useful

run_examples_from_package <-
function(pkgname, local=FALSE) {
  pkg <- sprintf("package:%s", pkgname)
  stopifnot(pkg %in% search())
  pdfout = sprintf("%s_examples.pdf", pkgname)
  msgout = sprintf("%s_examples_message.txt", pkgname)
  pdf(pdfout); on.exit(dev.off(), add=TRUE)
  msg <- file(msgout, open="wt")
  sink(msg); on.exit(sink(NULL), add=TRUE)
  sink(msg, type="message", append=TRUE); on.exit(sink(NULL, type="message"), add=TRUE)
  op <- options(error=NULL); on.exit(options(op), add=TRUE)
  op1 <- options("example.ask"=FALSE); on.exit(options(op1), add=TRUE)
  sapply(ls(grep(pkg, search(), fixed=TRUE, value=TRUE)[[1]]), example, package=pkgname, character.only=TRUE, local=local)
}