old_options <- options(na.action=na.fail)
on.exit(options(old_options))
You can also use this to define a wrapper that executes an expression
using special options
withOptions<-function(optlist,expr){
oldopt<-options(optlist)
on.exit(options(oldopt))
expr<-substitute(expr)
eval.parent(expr)
}
-thomas
On Sat, Oct 20, 2012 at 10:35 AM, Charles Geyer <char...@stat.umn.edu> wrote:
> is it possible to set an option inside a function ((I want to set
> na.action = na.fail) and have the previous state restored if there is
> an error so that the function doesn't change the option behind the
> user's back?
>
> Sorry if this has been answered before, but this subject is hard to Google.
>
> --
> Charles Geyer
> Professor, School of Statistics
> University of Minnesota
> char...@stat.umn.edu
>
> ______________________________________________
> R-devel@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel
--
Thomas Lumley
Professor of Biostatistics
University of Auckland
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
