R语言中如何优雅编写支持短路求值的嵌套if语句？

针对你需要的短路求值（仅当前面条件为TRUE时才评估后续条件）且更简洁的写法，这里提供几种可行方案：

方案1：自定义multiple_if函数（最贴合你的需求） #

直接实现一个函数，依次检查每个条件，只要遇到FALSE就立即终止并返回NULL，全部条件为TRUE时返回目标值：

multiple_if <- function(value, ...) {
  # 遍历传入的所有条件
  for (cond in list(...)) {
    if (!cond) {
      # 遇到假条件直接返回NULL，后续条件不会被评估
      return(NULL)
    }
  }
  # 所有条件都为真时返回目标值
  value
}

# 测试示例
cond1 <- TRUE 
cond2 <- FALSE
cond3 <- TRUE

x <- multiple_if(1, cond1, cond2, cond3)
# x 为 NULL，符合原嵌套if的逻辑（cond2为假，不执行赋值）

cond2 <- TRUE
x <- multiple_if(1, cond1, cond2, cond3)
# x 为 1，所有条件满足

这个函数完全满足短路要求：一旦某个条件为FALSE，后续的条件表达式不会被执行，避免了无意义的耗时计算。

方案2：直接使用&&短路运算符（最简洁） #

如果你的条件数量不多，直接用&&连接所有条件是最直观的写法，&&本身就是短路求值的：

cond1 <- TRUE 
cond2 <- FALSE
cond3 <- TRUE

x <- if (cond1 && cond2 && cond3) 1
# x 为 NULL（条件不满足时if返回NULL）

# 或者给不满足时设置默认值
x <- if (cond1 && cond2 && cond3) 1 else NA

这种写法不需要额外定义函数，代码量最少，适合简单场景。

方案3：用purrr::reduce_while实现短路检查 #

如果你习惯使用tidyverse工具，可以用purrr::reduce_while来实现带短路的条件累积检查：

library(purrr)

multiple_if <- function(value, ...) {
  conditions <- list(...)
  
  # 依次检查条件，一旦遇到FALSE就停止
  all_true <- reduce_while(conditions, 
    function(acc, cond) {
      if (!acc) {
        return(list(acc = FALSE, continue = FALSE))
      }
      list(acc = cond, continue = TRUE)
    },
    .init = TRUE
  )$acc
  
  if (all_true) value else NULL
}

# 测试效果和方案1一致
cond1 <- TRUE 
cond2 <- FALSE
cond3 <- TRUE
x <- multiple_if(1, cond1, cond2, cond3) # NULL

为什么purrr::when不适用？ #

purrr::when是按顺序匹配第一个满足的条件并执行对应表达式，它的逻辑是"找到第一个为真的条件就返回"，而非"所有条件都必须为真"，因此不符合你需要的嵌套if（所有前置条件为真才执行赋值）的逻辑。

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