R/withOptions.R

In vlulla/vlutils: Common utilities that I find useful

withOptions <-
function(optlist, expr) {
  ## See the subsection ``Deep End'' on http://www.burns-stat.com/the-options-mechanism-in-r/
  oldopt <- options(optlist)
  on.exit(options(oldopt))
  expr <- substitute(expr)
  eval.parent(expr)
}