我对 R 在一个非常具体的情况下的行为感到有点惊讶。假设我定义了一个函数square
返回其参数的平方,如下所示:
square <- function(x) { return(x^2) }
我想在另一个函数中调用这个函数,并且我还想在这样做时显示它的名称。我可以使用deparse(substitute())
。但是,请考虑以下示例:
ds1 <- function(x) {
print(deparse(substitute(x)))
}
ds1(square)
# [1] "square"
这是预期的输出,所以一切都很好。但是,如果我传递包装在列表中的函数并使用 for 循环处理它,则会发生以下情况:
ds2 <- function(x) {
for (y in x) {
print(deparse(substitute(y)))
}
}
ds2(c(square))
# [1] "function (x) " "{" " return(x^2)" "}"
谁能向我解释为什么会发生这种情况以及如何防止它发生?
一旦你使用x
在函数内部,它被求值,因此它“不再是(未求值的)表达式”并且“开始是其结果值(求值的表达式)”。为了防止这种情况,您必须捕获x
by substitute
在您第一次使用它之前。
的结果substitute
是一个可以像列表一样查询的对象。所以你可以使用
x <- substitute(x)
进而x[[1]]
(函数名称)和x[[2]]
和以下(函数的参数)
所以这有效:
ds2 <- function(x) {
x <- substitute(x)
# you can do `x[[1]]` but you can't use the expression object x in a
# for loop. So you have to turn it into a list first
for (y in as.list(x)[-1]) {
print(deparse(y))
}
}
ds2(c(square,sum))
## [1] "square"
## [1] "sum"
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)