是否可以在 R 中运行时设置函数的环境？

Question

如果你定义函数，它们默认都是Global Environment 的一部分。 我想知道，是否有办法将函数的父环境设置为调用环境（而 运行时 - 一个函数可能在不同的地方被调用！）。因此，在嵌套函数的情况下， 它应该成为可能，只在一个环境中定义一个变量，我希望有一个像

这样的例子

fun1 <- function() {
  # variable "my_env" defined only in this environment
  subfun() # calls subsubfun()
  return(NULL)
} 

exists("my_env", different_environments) 的输出喜欢

# [1] "fun1"
# [1] "===="
# [1] TRUE #     Only here: "here", in this function
# [1] FALSE
# [1] FALSE
# [1] " subfun"
# [1] " ======"
# [1] FALSE
# [1] TRUE #     Only here: "parent environment", in calling function
# [1] FALSE
# [1] "  subsubfun"
# [1] "  ========="
# [1] FALSE
# [1] FALSE
# [1] TRUE #     Only here: "parent-parent environment", in the function calling the function

来自文档?parent.frame

sys.parent 如果 n 为 1，则返回父框架的编号（ 默认），如果 n 为 2，则为祖父母，依此类推。另见“注”。
(...) parent.frame(n) 是 sys.frame(sys.parent(n)) （实现效率稍高）。

注意
严格来说，sys.parent 和 parent.frame 指的是上下文 父解释函数。所以内部功能（可能或 可能不会设置上下文，因此可能会或可能不会出现在调用堆栈上） 可能不算数，S3 方法也能做出令人惊讶的事情。 注意惰性求值的效果：这两个函数看 评估它们时的调用堆栈，而不是它们的时间 被称为。将调用作为函数参数传递给它们不太可能 是个好主意。

从here 开始的一些示例，它不起作用，因为所有函数都是全局环境的一部分。

subfun0 <- function() {
  e <- parent.frame()
  attr(e, "name") <- "my_env"
  assign("my_env", 1,
         envir = parent.frame(),
         inherits = FALSE, immediate = TRUE)
  return(NULL)
}

subsubfun <- function() {
  print("  subsubfun")
  print("  =========")
  print(exists("my_env"))
  print(exists("my_env", parent.frame()))
  env <- parent.frame()
  print(exists("my_env", parent.env(env)))
  return(NULL)
}

subfun <- function() {
  print(" subfun")
  print(" ======")
  print(exists("my_env"))
  print(exists("my_env", parent.frame()))
  env <- parent.frame()
  print(exists("my_env", parent.env(env)))
  subsubfun()
  return(NULL)
}

fun1 <- function() {
  print("fun1")
  print("====")
  subfun0()
  print(exists("my_env"))
  print(exists("my_env", parent.frame()))
  env <- parent.frame()
  print(exists("my_env", parent.env(env)))
  subfun()
  return(NULL)
}

fun1()

---

（我刚刚意识到，我对“调用环境”的理解完全错误，我的问题是，我能否让“我的图片”在 R 中工作。）

Answer 1

使用此代码，您将得到您正在寻找的内容：

subfun0 <- function() {
    e <- parent.frame()
    attr(e, "name") <- "my_env"
    assign("my_env", 1,
                 envir = parent.frame(),
                 inherits = FALSE, immediate = TRUE)
    return(NULL)
}

subsubfun <- function() {
    print("  subsubfun")
    print("  =========")
    print(exists("my_env"))
    print(exists("my_env", parent.frame()))
    print(exists("my_env", parent.frame(2)))
    return(NULL)
}

subfun <- function() {
    print(" subfun")
    print(" ======")
    print(exists("my_env"))
    print(exists("my_env", parent.frame()))
    print(exists("my_env", parent.frame(2)))
    subsubfun()
    return(NULL)
}

fun1 <- function() {
    print("fun1")
    print("====")
    subfun0()
    print(exists("my_env"))
    print(exists("my_env", parent.frame()))
    print(exists("my_env", parent.frame(2)))
    subfun()
    return(NULL)
}

fun1()

[1] "fun1"
[1] "===="
[1] TRUE
[1] FALSE
[1] FALSE
[1] " subfun"
[1] " ======"
[1] FALSE
[1] TRUE
[1] FALSE
[1] "  subsubfun"
[1] "  ========="
[1] FALSE
[1] FALSE
[1] TRUE
NULL

重点是：parent.frame(2)不等于parent.env(parent.frame())