如何将嵌套函数的访问范围定义为全局？

Question

我的R代码看起来像：

func1 = function(a) { 

    func2 = function(a) { 
    return(a+2) 
    } 

    func3 = function(a) { 
    return(a+3) 
    } 
    return(a+func2(a)) 
} 

难道我能够调用FUNC2或FUNC3从外部FUNC1？ 例如。如何运行：

x <- func2(10) #from the console? 

Answer 1

您可以创建一个功能关闭：

##I've removed the brackets and return to shorten the function 
func1 = function(a) { 
    func2 = function(a) a+2 
    func3 = function(a) a+3 
    return(list(func2=func2, func3=func3)) 
} 

您可以使用关闭共享变量：

func1 = function(a) { 
    a = a 
    func2 = function() a + 2 
    func3 = function() a + 3 
    return(list(func2=func2, func3=func3)) 
} 

f = func1(50) 
f$func2() 
f$func3() 

Answer 2

没有你不能。

func2在func1的范围内定义。

但这个问题真的很含糊！任何净功能都可以访问全局范围。

a <- 10 
function <- f(x){ 
    g <- function(y=x) x+a 
    g(x) 
} 

这里函数g是嵌套的并且有一个自由变量a。 解释器在g和f的范围内工作，接下来寻找f（全局）框架中的a的值。

为什么要将嵌套函数定义为嵌套，如果要将其作为全局访问？