如何让R函数返回所有相关错误而非仅第一个终止错误？

原始代码问题 #

你提供的原始函数通过if-else连锁判断做参数验证，一旦触发某个stop就会立即终止运行，无法返回所有存在的错误。同时子函数sub_func存在参数缺失问题（未接收y但内部使用了该变量）。

simple_function <- function(x, y) {
  if (!is.numeric(x) && is.numeric(y)) {
    stop("x must be a number")
  }
  else if (!is.numeric(y)) {
    stop("y must be a number")
  }
  else if (is.numeric(x) && is.numeric(y)) {
    result <- sub_fun(x, y)
  }
  return(result)
}

sub_func <- function(x) {
  if (x > 5) {
    result <- x * y
  }
  else if (x < 5) {
    result <- x + y
  }
  else if (x == 5) {
    stop ("x cannot be equal to 5.")
  }
  return(result)
}

a = 5
b = 'b'
# 调用仅返回第一个触发的错误：y must be a number
simple_function(a, b)

解决方案：收集所有错误后统一抛出 #

要返回所有相关错误，需取消互斥的else if逻辑，改为独立检查每个验证条件，将所有错误信息收集到向量中，最后一次性抛出。同时修正sub_func的参数问题。

修改后的代码：

simple_function <- function(x, y) {
  # 初始化错误向量
  errors <- character(0)
  
  # 独立检查x的数值类型
  if (!is.numeric(x)) {
    errors <- c(errors, "x must be a number")
  }
  
  # 独立检查y的数值类型
  if (!is.numeric(y)) {
    errors <- c(errors, "y must be a number")
  }
  
  # 若存在错误，统一抛出所有信息
  if (length(errors) > 0) {
    stop(paste("参数验证失败：", paste(errors, collapse = "； ")))
  }
  
  # 验证通过后执行子函数
  result <- sub_func(x, y)
  return(result)
}

# 修正sub_func的参数，添加y作为输入
sub_func <- function(x, y) {
  if (x > 5) {
    result <- x * y
  } else if (x < 5) {
    result <- x + y
  } else if (x == 5) {
    stop("x cannot be equal to 5.")
  }
  return(result)
}

效果测试 #

• 当x = "a"，y = 'b'时，调用simple_function(x, y)会返回：

  Error in simple_function(x, y) : 参数验证失败：x must be a number； y must be a number
  

• 当x = 5，y = 'b'时，返回：

  Error in simple_function(x, y) : 参数验证失败：y must be a number
  

核心思路 #

通过独立检查每个验证规则，避免else if的互斥逻辑导致的提前终止，将所有错误信息收集后统一输出，确保调用者能一次性获取所有不符合要求的参数问题。

内容的提问来源于stack exchange，提问作者Andrea