有条件地更改R中列表的日期格式

Question

我正在使用长度为20的列表。而且我有不同格式的工作表（列表），如下所示：

List.1＃在这种情况下，格式正确

Id  DATE
1   2019/02/01
2   2019/02/04
3   2019/02/04

List.2＃格式错误

Id  DATE
4   42586
5   42587
6   45590

我想将list.2的格式更正为list.1格式

我尝试过：

for(i in 1:20) {
DF[[i]]$DATA=as.Date.numeric(as.numeric(as.character(DF[[i]]$DATA)),origin = "1899-12-30")
}

所以，这没用，我的功能没有选择有问题的表，而是全部。

Answer 1

（使用润滑脂） 如果您确切知道原始参考日期，我将：

• 检测值是否为数字
• 如果是这样，请将天数从1899-12-30减少到1970-01-01（lubridate的默认启动日期）
• 使用lubridate as_date函数读取以上内容的输出