访问 R function 中的指定名称

Question

我想知道 R 函数是否可以知道分配其结果的变量的名称。

例如

selfaware_squared <- function(x) {
  cat("Assigning square to variable name '", some_magic, "'.")
  return(x^2)
}

> a <- selfaware_squared(2)
Assigning square to variable name ' a '.

Answer 1

如果您使用assign进行分配，则sys.call是一个选项。 它允许您从内部调用检索外部 function 调用：

f <- function(x) {
  cl <- sys.call(-1L)
  if (!is.null(cl) && cl[[1L]] == "assign") {
    nm <- match.call(assign, cl)$x
    if (is.character(nm) && length(nm) > 0L) {
      cat("assigning square of", sQuote(deparse(substitute(x))),
          "to variable", sQuote(nm[1L]), "\n")
    }
  }
  x * x
}

assign("y1", f(10)) # assigning square of ‘10’ to variable ‘y1’ 
y1
## [1] 100

assign("y2", f(1:10)) # assigning square of ‘1:10’ to variable ‘y2’ 
y2
## [1]   1   4   9  16  25  36  49  64  81 100

assign("y3", f(pi)) # assigning square of ‘pi’ to variable ‘y3’
y3
## [1] 9.869604

assign("y4", f(pi^2)) # assigning square of ‘pi^2’ to variable ‘y4’
y4
## [1] 97.40909

不幸的是，这种方法没有扩展到<- ，因为它是一个原语而不是闭包（比较typeof(`<-`)和typeof(assign) ）。 它的调用不会出现在调用堆栈上。 因此y <- f(10)会将值 100 分配给y而不会生成任何 output。

Answer 2

我认为 function 可以知道分配 output 的名称的唯一方法是，它是否作为 ZC1C425268E68385D1AB5074C17A94F14 的输入提供。 因此，例如，您可以在 function 中将其作为输入并使用 assign() （尽管这可能应该非常小心）。

selfaware_squared <- function(x, nm) {
  cat("Assigning square to variable name '", nm, "'.")
  assign(x = nm, value = x^2, envir = globalenv())
}

selfaware_squared(2, "a")
#> Assigning square to variable name ' a '.

^{由代表 package (v2.0.1) 于 2022 年 1 月 27 日创建}

另请参阅此处对该主题的讨论。