R 4.2.0更新导致esc包中if语句触发警告，求稳健修复方案

问题背景 #

R 4.2.0版本更新后，当&&或||的参数长度大于1时会抛出警告，导致以下代码中的if()逻辑失效。这段代码来自esc包的esc_mean_gain函数：

if ((missing(gain1mean) || is.null(gain1mean) || is.na(gain1mean)) &&
    ((missing(pre1mean) || is.null(pre1mean) || is.na(pre1mean)) ||
     (missing(post1mean) || is.null(post1mean) || is.na(post1mean)))) {
  warning("Either `pre1mean` and `post1mean` or `gain1mean` must be specified.", call. = F)
  return(esc_generic(es = NA, v = NA, es.type = es.type, grp1n = NA, grp2n = NA, info = NA, study = NA))
}

稳健修复方案 #

核心是确保所有逻辑判断的结果为单个布尔值，避免向量输入触发新版本警告，同时保留短路求值的效率。修复后的代码如下：

# 拆分复杂条件为单个布尔变量，确保每个变量长度为1
gain1_not_provided <- missing(gain1mean) || is.null(gain1mean) || anyNA(gain1mean)
pre1_not_provided <- missing(pre1mean) || is.null(pre1mean) || anyNA(pre1mean)
post1_not_provided <- missing(post1mean) || is.null(post1mean) || anyNA(post1mean)

if (gain1_not_provided && (pre1_not_provided || post1_not_provided)) {
  warning("Either `pre1mean` and `post1mean` or `gain1mean` must be specified.", call. = FALSE)
  return(esc_generic(es = NA, v = NA, es.type = es.type, grp1n = NA, grp2n = NA, info = NA, study = NA))
}

修复要点说明 #

1. 用anyNA()替代is.na()：当参数是向量时，is.na()会返回同长度的布尔向量，而anyNA()直接返回一个布尔值，表示是否存在至少一个NA，完全符合if()对单个条件的要求，彻底避免R 4.2.0的警告。
2. 拆分条件为变量：将嵌套的复杂逻辑拆分为独立变量，既提升代码可读性，又确保每个变量都是长度为1的布尔值，再通过&&/||进行短路求值，兼顾效率与规范。
3. 可选：添加参数类型校验：如果gain1mean、pre1mean等参数本应是标量（均值应为单个数值），可在函数开头添加校验，从源头避免向量输入：

   stopifnot(
     missing(gain1mean) || (is.numeric(gain1mean) && length(gain1mean) == 1),
     missing(pre1mean) || (is.numeric(pre1mean) && length(pre1mean) == 1),
     missing(post1mean) || (is.numeric(post1mean) && length(post1mean) == 1)
   )
   

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