6.18 withr pre-made helpers

Do / undo this	withr functions
Set an R option	local_options(), with_options()
Set an environment variable	local_envvar(), with_envvar()
Change working directory	local_dir(), with_dir()
Set a graphics parameter	local_par(), with_par()