如何检查 R 函数的输入参数是否存在

Question

我有一个函数定义为

myFun <- function(x, y, ...) {
  # using exists
  if (exists("z")) { print("exists z!") }
  # using missing
  try(if (!missing("z")) { print("z is not missing!") }, silent = TRUE)
  # using get
  try(if (get("z")) { print("get z!") }, silent = TRUE)

  # anotherFun(...)
}

在这个函数中，我想检查用户是否在参数列表中输入了“z”。我怎样才能做到这一点？我尝试了exists("z")、missing("z") 和get("z")，但它们都不起作用。

Answer 1

我认为您只是在寻找hasArg

myFun <- function(x, y, ...) { 
  hasArg(z)
}

> myFun(x=3, z=NULL)
[1] TRUE

来自?hasArg：

例如，表达式 hasArg(x) 类似于 !missing(x)，具有 两个例外。首先，hasArg 将在 如果 x 不是调用函数的正式参数，则调用，但是... 是。其次，如果将名称作为 参数，而如果 x 不是正式的，missing(x) 会生成错误 论据。

Answer 2

@Sacha Epskamp 有一个很好的解决方案，但它并不总是有效。失败的情况是“z”参数作为 NULL 传入...

# Sacha's solution
myFun <- function(x, y, ...) { 
  args <- list(...)
  exist <- !is.null(args[['z']])
  return(exist)
}

myFun(x=3, z=NULL) # FALSE, but should be TRUE!


# My variant
myFun2 <- function(x, y, ...) {
  args <- list(...)
  exist <- "z" %in% names(args)
  exist
}

myFun2(x=3, z=NULL) # TRUE

Answer 3

在某些情况下，您可能不想调用list(...)，因为这将评估点中的所有表达式。例如，

myFun <- function(x, y, ...){
  myArgs <- list(...)
  zInArgs <- ("z" %in% names(myArgs))
  return(zInArgs)
}

myFun(x = 2, y = "Happy", z = list(rep(rnorm(2e6), 100)))

这需要很长时间。相反，请使用match.call():

myFun <- function(x, y, ...){
  myArgs <- match.call()
  zInArgs <- ("z" %in% names(myArgs))
  return(zInArgs)
}

myFun(x = 2, y = "Happy", z = list(rep(rnorm(2e6), 100)))

第一个示例仍在我的机器上运行，而第二个示例几乎不需要任何时间。

编辑：

回答@CarlWitthoft 的评论：

R> system.time(
+   (myAns <- myFun(x = 2, y = "Happy", z = list(rep(rnorm(2e6), 100))))
+ )
   user  system elapsed 
      0       0       0 
R> myAns
[1] TRUE

Answer 4

这是我经常这样做的一种方式。先将...转换为列表，然后检查元素是否不是NULL：

myFun <- function(x, y, ...) { 
args <- list(...)
exist <- !is.null(args[['z']])
return(exist)
}

一些结果：

> myFun()
[1] FALSE
> myFun(z=1)
[1] TRUE