自定义缺失函数

Question

missing 为调用者未提供的参数返回TRUE，无论该参数是否具有默认值。

f <- function(a, b=2, c) {
   cat(missing(a), missing(b), missing(c), fill=TRUE)
}

f(a=1)
# FALSE TRUE TRUE

我想要一个 missing 版本，它仅针对没有默认值的未提供参数返回 TRUE。我想出了一些东西，但它有点难看。

really.missing <- function(x) {
    name.supplied <- as.character(substitute(x))
    do.call(function(y) missing(y), 
            unname(mget(name.supplied, envir=parent.frame())))
}
ff <- function(a, b=2, c) {
   cat(really.missing(a), really.missing(b), really.missing(c), fill=TRUE)
}
ff(a=1)
# FALSE FALSE TRUE

有没有更简洁的方法？

Answer 1

如果我正确理解了您的问题，如何：

noval<- function(x) {
  tryCatch( {force(x); FALSE}, error = function(x) TRUE)
}

f <- function(a, b=2, c) {
  cat(noval(a), noval(b), noval(c), fill=TRUE)
}

f(a=1)

此noval 函数将强制评估您的参数（如果传入或设置了默认值则成功，否则失败）并相应地返回 FALSE/TRUE。