R语言ifelse调用lubridate包years函数始终返回0的原因

base R自带的ifelse()是为原子向量设计的函数，执行过程中不会保留输入值的自定义S3/S4类属性，会强制把输入的yes、no分支参数转换成基础数据结构再拼接返回。

lubridate包中years()生成的返回值是Period类的S4对象，并不是普通数值：它的内部结构里，默认被基础R函数识别的数据槽.Data存储的是秒级偏移值，传入years(1)时这个槽的值恰好是0，年数实际存在单独的year槽位里。ifelse()处理时完全丢失了Period的类定义，直接提取了.Data槽的0作为返回值，就出现了和预期不符的结果。

你可以运行下面的代码验证years(1)的内部结构：

str(years(1))
# 输出节选：
# Formal class 'Period' [package "lubridate"] with 6 slots
#   ..@ .Data : num 0
#   ..@ year  : num 1
#   ..@ month : num 0
#   ..@ day   : num 0
#   ..@ hour  : num 0
#   ..@ minute: num 0

根据判断场景选择支持保留自定义类属性的写法即可：

• 单值条件判断（test参数长度为1，比如示例里的1==1），直接用R原生的if/else分支，不会丢失类属性：

if (1 == 1) years(1) else years(2)
# 正确输出：[1] "1y 0m 0d 0H 0M 0S"

• 向量级条件判断（需要对向量每个元素做分支判断），可以用dplyr包中类型安全的if_else()函数，它会校验两个分支返回值的类型，完整保留包括Period在内的自定义类属性：

library(dplyr)
# 对长度为2的逻辑向量做判断
if_else(c(TRUE, FALSE), years(1), years(2))
# 正确输出：[1] "1y 0m 0d 0H 0M 0S" "2y 0m 0d 0H 0M 0S"

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