outer_fun <- function() {
fun <- function(envir = parent.frame()) {
local_fm_testthat_assign("local_var_name", 1:4, envir = envir)
}
fun()
local_var_name
}
exists("local_var_name")
outer_fun()
exists("local_var_name")
Run the code above in your browser using DataLab