避免dplyr::if_else双分支求值产生日期解析非预期警告的方法

dplyr 提供的if_else、case_when 均采用向量化全分支求值机制，与 base::ifelse 行为一致：无论条件判定结果如何，两个分支的表达式都会被完整作用于整个输入向量。这就会导致日期解析函数被传入不符合自身格式要求的样本，触发不必要的冗余警告，同时又无法直接通过全量屏蔽警告规避问题，避免漏过真实的解析失败。

方案1：定向分桶解析，从源头消除无效求值 #

核心逻辑是不将完整输入向量传入分支解析函数，先按格式规则拆分样本子集，仅让对应格式的解析函数处理匹配的样本，再将结果对齐回原长度，最后自行校验真实的解析失败并触发告警。

library(lubridate)
library(dplyr)

x <- c("20/01/2001", "02/28/01", "2000/01/01")

# 按格式规则拆分样本
idx_dmy <- nchar(x) > 8
idx_mdy <- !idx_dmy

# 仅给解析函数传入匹配格式的子集，关闭解析函数自带的跨样本冗余告警
res_dmy <- dmy(x[idx_dmy], quiet = TRUE)
res_mdy <- mdy(x[idx_mdy], quiet = TRUE)

# 将解析结果对齐回原始向量长度
res <- rep(NA_Date_, length(x))
res[idx_dmy] <- res_dmy
res[idx_mdy] <- res_mdy

# 单独识别真实的解析失败：符合格式规则但解析结果仍为NA的样本
valid_format_flag <- grepl("^\\d{2}/\\d{2}/\\d{2,4}$", x)
real_parse_fail <- is.na(res) & valid_format_flag
if (any(real_parse_fail)) {
  warning(sprintf("格式匹配但解析失败的样本：%s", paste(x[real_parse_fail], collapse = "、")))
}

该方案从触发源头上消除冗余警告，完全保留对真实解析错误的感知，不会出现解析函数收到不匹配格式样本的情况。

方案2：逐行处理实现真短路分支 #

通过rowwise()打开逐行计算模式后，普通标量if判断会逐行执行：只有当当前行满足分支条件时，才会调用对应的日期解析函数，不会对全向量执行分支表达式的计算。

library(dplyr)
library(lubridate)

x <- c("20/01/2001", "02/28/01", "2000/01/01")

tibble(x = x) %>%
  rowwise() %>%
  mutate(
    parsed_date = if (nchar(x) > 8) {
      dmy(x)
    } else {
      mdy(x)
    }
  ) %>%
  ungroup()

这种模式下不需要屏蔽任何警告：日期解析函数本身保留原有告警机制，遇到“格式匹配但日期值无效（如2月30日）”的情况会正常抛出告警，完全满足“不屏蔽真实失败告警”的要求。该模式下触发的所有警告，均为当前样本被规则分支判定后、解析函数无法处理单个样本的真实问题，不存在跨样本无效求值带来的冗余警告。

• 不要直接用suppressWarnings包裹整块解析逻辑，这种方式会把真实的解析失败告警一并屏蔽，埋下数据质量风险。
• 上述两种方案都不需要修改原有业务的格式判断规则，仅调整求值逻辑即可规避冗余警告。

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