如何提取从 R 中的另一个函数调用的函数中的变量名称？

Question

我的问题是如何从 R 中另一个函数中调用的函数中提取变量的名称？

为了说明这一点，这里有一个例子：

a <- function(variable) {

    print(deparse(substitute(variable)))

    internala(substitute(variable))

}

internala <- function(variableXX) {

    namex=deparse(substitute(variableXX))

    print(namex)
}

调用函数a给出以下结果：

>a(whatever)

[1] "whatever"

[1] "substitute(variable)"

这意味着我可以从a中提取变量whatever的名称code>，但不是来自 internala。

对此有什么想法吗？

任何帮助将不胜感激！

玛丽亚

Answer 1

你最好不要与替代者和朋友搞混——你可能会创建一个很难编程的函数。为什么不直接将变量的名称作为字符串显式传递呢？

Answer 2

您可以更改a函数来替换internala函数的参数并eval它：

a <- function(variable) {
    print(deparse(substitute(variable)))
    eval(substitute(internala(variable))) # this is only change
}

internala <- function(variableXX) {
    namex=deparse(substitute(variableXX))
    print(namex)
}

a(whatever)

正如hadley建议的那样，最好直接传递名称。我通常会这样做：

a <- function(variable, vname=deparse(substitute(variable))) {
    print(vname)
    internala(variable, vname)
}

internala <- function(variableXX, namex=deparse(substitute(variableXX))) {
    print(namex)
}

a(whatever)

每个函数都可以在不传递名称的情况下调用，但您可以覆盖它。例如：

a(whatever, "othername")

Answer 3

这是对我有用的东西。不过我不确定这是否是最佳解决方案

a <- function(variable) {
print(deparse(substitute(variable)))
my_command <- paste('internala(',substitute(variable),')',sep = '')
eval(parse(text = my_command))
}

internala <- function(variableXX) {
namex=deparse(substitute(variableXX))
print(namex)
}