使用lubridate解析日期时出现异常警告的解决请求

问题场景 #

处理包含不完整日期的数据集（如"31.12."、"30.01."、"30.02."）时，使用自定义parse_dmy函数配合dplyr::case_when做分支日期处理：

• 对以".12."结尾的日期拼接2019后解析
• 对以"30.02"开头的日期特殊处理为2022年2月最后一天
• 其他日期拼接2022后解析

运行代码后出现意外警告：系统尝试解析不符合第一个分支条件的"30.02.2019"，调整分支顺序也无法消除，同时需要保留parse_dmy的警告功能用于后续错误排查。

问题原因 #

dplyr::case_when是向量式运算，会优先计算所有分支的完整表达式，再根据条件筛选结果，而非短路执行（即不会因为某行不满足分支条件就跳过该分支表达式的计算）。因此即使"30.02."不满足第一个分支的str_ends(date, ".12.")条件，parse_dmy(str_c(date, 2019))依然会对所有date元素执行，包括"30.02."，生成无效日期"30.02.2019"并触发警告。

解决方案 #

使用rowwise()将数据框切换为逐行处理模式，这样case_when会逐行判断条件，仅执行当前行符合条件的分支表达式，避免无效的日期解析调用。

修改后的代码 #

library(dplyr)
library(lubridate)
library(stringr)
library(cli)

parse_dmy = function(x){
  d = lubridate::dmy(x, quiet = TRUE)
  errors = x[!is.na(x) & is.na(d)]
  if(length(errors) > 0){
    cli::cli_warn("Failed to parse some dates: {.val {errors}}")
  }
  d
}

tibble::tibble(
  date = c("31.12.", "30.01.", "30.02.")
) |>
  rowwise() |> # 开启逐行处理模式
  mutate(
    date2 = case_when(
      str_ends(date, ".12.") ~ parse_dmy(str_c(date, 2019)),
      str_starts(date, "30.02") ~ rollforward(parse_dmy(str_c("01.02.",2022))),
      .default = parse_dmy(str_c(date, 2022))
    ),
    case = case_when(
      str_ends(date, ".12.") ~ "december case",
      str_starts(date, "30.02") ~ "february case",
      .default = "default case"
    ),
  ) |>
  ungroup() # 恢复向量运算模式，避免后续操作性能问题

效果验证 #

运行上述代码后，输出结果与原代码一致，但不会出现"30.02.2019"的无效解析警告。同时parse_dmy的警告功能保留，后续若新增无效日期（如"31.04.2022"），依然会触发警告提示，不影响错误排查。

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