R中的作用域分配以及局部，绑定和全局变量

Question

我是R的新手，试图弄清楚局部，绑定和全局变量的行为。 我对以下问题感到困惑。 如果我以以下方式编写函数，那么函数f的局部变量，边界变量和全局变量是什么？

f <- function(a ="") {
  return_a <- function() a
  set_a <- function(x)
      a <<- x
  list(return_a,set_a)
}

Answer 1

return_a是一个函数。 set_a是一个函数。 它们都是功能对象（具有关联的环境，但是使用“变量”一词来形容它们似乎容易造成混淆。如果调用f ，则会得到两个函数的列表。创建列表时，不一定有名称要列表，所以p$set_a("Carl")抛出错误，因为没有p[['set_a']] 。

> p <- f("Justin"); p$set_a("Carl")
Error: attempt to apply non-function

但是p [[2]]现在返回一个函数，您需要调用它：

>  p[[2]]
function(x)
      a <<- x
<environment: 0x3664f6a28>

> p[[2]]("Carl")

这确实改变了符号-的值a中的p个环境[[1]]：

> p[[1]]()
[1] "Carl"