Question

我希望我的R包（S3样式）中的最终用户函数验证其参数，并在特定有效性检查失败时向用户提供信息性错误或警告。

这种明显（但又乏味且不可维护）的方法是：

foo<-function(aa,bb,cc,dd){
  if(length(aa)!=1) stop("The argument 'aa' must have a single value");
  if(!is.numeric(aa)) stop("The argument 'aa' must be numeric");
  if(!is.character(bb)) stop("The argument 'bb' must be a character");
  if(length(bb)>=4||length(bb)<=2) stop("The argument 'bb' must be a vector with a length between 2 and 4");
  if(!is.recursive(cc)) stop("The argument 'cc' must be a list-like object");
  if(!is.integer(dd)) stop("The argument 'dd' must contain only integers");
  if(any(dd<aa)) stop("All values in the argument 'dd' must be greater than the value of argument 'aa'");
  ## ...and so on
}

我假设我到目前为止不是第一个这样做的人。那么，任何人都可以建议一个自动化全部或部分此类验证任务的软件包吗？或者，如果不这样做，一些简洁，通用的习语会在每个函数中将丑陋限制在尽可能少的行中？

感谢。

Answer 1

stopifnot可能与您正在寻找的相似。

虽然错误消息不太好

foo <- function(x){
    stopifnot(length(x) == 1, is.numeric(x))
    return(x)
}

给出了

> foo(c(1,3))
Error: length(x) == 1 is not TRUE
> foo("a")
Error: is.numeric(x) is not TRUE
> foo(3)
[1] 3

Answer 2

您可以编写这样的辅助函数（基本示例）：

validate <- function(x, ...){
    for(s in c(...)) switch(s,
        lengthone = if(length(x)!=1) stop("argument has length != 1."),
        numeric = if(!all(is.numeric(x))) stop("non-numeric arguments."),
        positive = if(any(x <= 0)) stop("non-positive arguments."),
        nonmissing = if(any(is.na(x))) stop("Missing values in arguments.")
    )
}

结果：

> validate(1, "numeric", "positive")
> validate(0, "numeric", "positive")
Error in validate(0, "numeric", "positive") : non-positive arguments.

R函数的半自动化参数验证

2 个答案: