通过函数名在调用堆栈中查找父环境

Question

我正在一个看起来像的可变深度调用堆栈中工作

TopLevelFunction
 -> <SomeOtherFunction(s), 1 or more>
   -> AssignmentFunction

现在，我的目标是将AssignmentFunction 中创建的变量分配给TopLevelFunction 的环境。我知道我可以用sys.calls 提取堆栈，所以我目前的方法是

# get the call stack and search for TopLevelFunction
depth <- which(stringr::str_detect(as.character(sys.calls()), "TopLevelFunction"))
# assign in TopLevelFunction's environment
assign(varName, varValue, envir = sys.frame(depth))

我对此或多或少没意见，但我不确定将调用对象转换为字符向量是否是个好主意。这种方法容易出错吗？更一般地，您将如何搜索特定的父环境，只知道函数的名称？

Answer 1

像这样的fn

get_toplevel_env <- function(env) {

    if (identical(parent.env(env), globalenv())) {
        env
    } else {
        get_toplevel_env(parent.env(env))
    }
}

并且像这样在任何级别的嵌套函数中使用它？

get_toplevel_env(as.environment(-1))

Answer 2

我不确定我是否正确理解了您想要做什么，但是，使用parent.env(as.environment(-1)) 不可行吗？

在这个例子中它似乎可以工作。

fn1 <- function() {

    fn1.1 <- function(){
        assign("parentvar", "PARENT", 
               envir = parent.env(as.environment(-1)))

    }

    fn1.1()
    print(parentvar)
}

fn1()

我认为，也许其他可能性是使用<<-，它在全球环境中分配。但也许这不是你想要的。