R:获取在 `...`中传递的参数名称

Question

在一个使用...提供参数列表的简单函数中，该函数是否可以找到从环境(调用环境)传递的对象的名称？如果是这样，怎么办？

这是在问题printing matrices and vectors side by side的上下文中出现的，但可能更笼统。

在这种情况下，参数...也可以包含不需要名称的字符串。这是我的MWE，我尝试使用deparse(substitute())，但无济于事。

test_names <- function(...) {
  # get arguments
  args <- list(...)
  chars <- sapply(args, is.character)
  names <- sapply(args, function(x) if(is.character(x)) " " else deparse(substitute(x)))
  names
}

测试:

A = matrix(c(0.5, 1, 3, 0.75, 2.8, 4), nrow = 2)
x = c(0.5, 3.7, 2.3)
y = c(0.7, -1.2)
b = A %*% x - y

> test_names(A, " * ", x, " - ", y, " = ", b)
[1] "X[[i]]" " "      "X[[i]]" " "      "X[[i]]" " "      "X[[i]]"
> 

我想要的输出是长度为7的字符向量:

[1] "A"  " "   "x" " "  "y" " "   "b"

令人惊讶的是，当所有地方都未提及X[[i]]时，结果都是X。

遵循@Roland的回答，这似乎可以满足我的要求:

test_names2 <- function(...) {
  argnames <- sys.call()
  unlist(lapply(argnames[-1], as.character))
}

> test_names2(A, " * ", x, " - ", y, " = ", b)
[1] "A"   " * " "x"   " - " "y"   " = " "b"  

Answer 1

使用sys.call:

test_names <- function(...) {
  argnames <- sys.call()
  paste(lapply(argnames[-1], as.character), collapse = "")
}
#[1] "A * x - y = b"