环境，R 中的 sys.frame() 和 sys.nframe

Question

喂！ 我正在玩R中的环境。 这是一个最小的例子：

test_function <- function() {
 list2env(list(test = 5), envir = sys.frame(sys.nframe()))
  test_function2()
}

test_function2 <- function() {
  #access variable test here
}

第 2 部分

test_function <- function() {
  print(sys.nframe())
  x <- 5
 list2env(list(test = x), envir = sys.frame(sys.nframe()))
  test_function2()
}

test_function2 <- function(envir = parent.frame()) {
  print(sys.nframe())
  x <- envir$test
  if (x<5) {
    test_function3()
  } else{
    test_function2()
  }

}
test_function3 <- function(envir = parent.frame()) {
  
}

在 test_function2() 的第二次调用中，我无法访问测试。

谁能告诉我如何访问 test_function2 中的变量 test？ 提前致谢！

Answer 1

使用来自问题的test_function，我们从父框架中检索test：

test_function2 <- function(envir = parent.frame()) {
    envir$test
}

test_function()
## [1] 5

第 2 部分

envir 需要传递下去。这就是为什么它在第一部分中提出了一个论点。我们修改了这个例子，去掉了无限递归。

test_function <- function(x) {
  list2env(list(test = x), environment())
  test_function2(z = 5)
}

test_function2 <- function(z, envir = parent.frame()) {
  x <- envir$test
  if (x<z) test_function3(envir) else Recall(z+1, envir)
}

test_function3 <- function(envir = parent.frame()) {
  envir$test
}

trace(test_function)
trace(test_function2)
trace(test_function3)

test_function(4)
## trace: test_function(4)
## trace: test_function2
## trace: test_function3
## [1] 4

test_function(5)
## trace: test_function(5)
## trace: test_function2
## trace: test_function2
## trace: test_function3
## [1] 5