# NOT RUN {
env <- child_env("base")
fn <- with_env(env, function() NULL)
identical(fn_env(fn), env)
other_env <- child_env("base")
fn_env(fn) <- other_env
identical(fn_env(fn), other_env)
# }
Run the code above in your browser using DataCamp Workspace