Найти родительскую среду в стеке вызовов по имени функции

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

Я не уверен, правильно ли я понял, что вы хотите сделать, но, не работает ли он, чтобы использовать parent.env(as.environment(-1))?

В этом примере это работает.

fn1 <- function() { 

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

    } 

    fn1.1() 
    print(parentvar) 
} 

fn1() 

Может быть другая возможность заключается в том, чтобы использовать <<-, который назначает в глобальной среде, я думаю. Но, возможно, это не то, что вы хотите.

Answer 2

сноска как этот

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))