# NOT RUN {
# Get the environment of frame objects. If no argument is supplied,
# the current frame is used:
fn <- function() {
list(
get_env(call_frame()),
get_env()
)
}
fn()
# Environment of closure functions:
get_env(fn)
# Or of quosures or formulas:
get_env(~foo)
get_env(quo(foo))
# Provide a default in case the object doesn't bundle an environment.
# Let's create an unevaluated formula:
f <- quote(~foo)
# The following line would fail if run because unevaluated formulas
# don't bundle an environment (they didn't have the chance to
# record one yet):
# get_env(f)
# It is often useful to provide a default when you're writing
# functions accepting formulas as input:
default <- env()
identical(get_env(f, default), default)
# set_env() can be used to set the enclosure of functions and
# formulas. Let's create a function with a particular environment:
env <- child_env("base")
fn <- set_env(function() NULL, env)
# That function now has `env` as enclosure:
identical(get_env(fn), env)
identical(get_env(fn), get_env())
# set_env() does not work by side effect. Setting a new environment
# for fn has no effect on the original function:
other_env <- child_env(NULL)
set_env(fn, other_env)
identical(get_env(fn), other_env)
# Since set_env() returns a new function with a different
# environment, you'll need to reassign the result:
fn <- set_env(fn, other_env)
identical(get_env(fn), other_env)
# }
Run the code above in your browser using DataLab