r - 检查传递的参数是否存在

Question

我正在尝试检查作为参数传递给函数的变量是否存在。基于对 this 的回答我有以下问题:

myfunction <- function(x) {
  stopifnot(exists(deparse(substitute(x))))
}

但是，如果参数是要计算的表达式，则它不起作用:

a=c(1:10)
myfunction(a+10)

如果参数不仅仅是一个变量，我如何确保捕获不存在的变量？

Answer 1

一个选项是组合 match.call(返回对函数的调用)和 all.vars(返回表达式中的名称)。试试这个:

fcn <- function(x) {
  varnames <- all.vars(match.call())
  for (x in varnames)
    stopifnot(exists(x))
}

fcn(a) # returns error, as expected
#Error: exists(x) is not TRUE

# create "a"
a <- 2
fcn(a + 1) # no error returned since "a" exists

同样，

fcn(a + b) # error returned since "b" does not exist
#Error: exists(x) is not TRUE
b <- 4
fcn(a + b) # no error since "b" now exists