请教，我的数据中有两列时间数据，分别是map_time和lactate_time（如上图）。这两列数据都含有缺失值。现在我想生成一列新的数据，取这两个时间中较早的那个作为新的一列，命名为s_time。若有其中一个数据是缺失值，则新的数据也列为缺失值。我的操作如下：
>library(lubridate)
>data$map_time <- ymd_hms(data$map_time)
>data$lactate_time <- ymd_hms(data$lactate_time)
>data$timediff <- difftime(data$map_time, data$lactate_time,units = "hours")
>data$s_time <- ifelse(is.na(data$timediff),NA,
+                                   ifelse(data$timediff < 0, data$map_time, data$lactate_time))


结果中生成s_time并不是我想要的时间数据，而是数值型数据。请教大家这该如何解决？