看起来您可以使用assign操作让一个函数将数据透明地传递回父函数。

示例（设置）

calling = function()
    {
    a = 25;
    cat("\n ...CALLING... a = ", a, "\n");
    assign("a", a, envir=parent.frame(1) );  # ?sys.calls
    }

caller = function()
    {
    a = 15;
    cat("\n ...CALLER... a = ", a, "\n");
    
    pf = parent.frame(); ## how to say THIS current FRAME
    cat("\n ...CALLER_FRAME... pf = \n");
    print(pf);
    
    cat("\n\n\n");
    
    calling();
    cat("\n ...CALLER*... a = ", a, "\n");
    }

跑步

a = 5;
cat("\n ...GLOBAL... a = ", a, "\n");
caller();
# scope, should mess with GLOBAL = 5
cat("\n ...GLOBAL*... a = ", a, "\n");

输出

> a = 5;
> cat("\n ...GLOBAL... a = ", a, "\n");

 ...GLOBAL... a =  5 
> caller();

 ...CALLER... a =  15 

 ...CALLER_FRAME... pf = 
<environment: R_GlobalEnv>



 ...CALLING... a =  25 

 ...CALLER*... a =  25 
> # scope, should mess with GLOBAL = 5
> cat("\n ...GLOBAL*... a = ", a, "\n");

 ...GLOBAL*... a =  5

问题

因此，在上面，GLOBAL a没有改变，但是calling能够更新caller的a的值，而不返回该值，也就是说，calling使用assign将该值传递回caller。
问题是在代码中，在caller中，我如何获得THIS当前帧参考？
如果我有更复杂的嵌套，我该如何使用它？将envir传递给calling，这可能是一些函数的深度？这个参考Can you pass-by-reference in R?有一些讨论，但我没有完全在THIS当前的caller框架参考下？