r-将非日期格式的输出格式化为日期对象

Question

嗨，我正在处理一个数据集，如下所示。我试图在日期列上运行dmy函数，并返回日期，否则返回数据中存在的任何内容。如何将日期输出为date而不是某个长数字。感谢

> dataF[1:5, 1:5]
 ID_NO     DTTM     DATE_YEAR  TERM    ISSUE_DT
1 1478   4-Sep-06     2006      27     2006-09-14
2 5032  27-Oct-06     2006      36     2006-11-02
3 3192   8-Jan-07     2007      10     2007-01-08
4 3978  28-Jan-07     2007      20     2007-01-31
5 6617   5-Jan-07     2007      10     2007-01-05
> 
> lapply(dataF[1:5, 1:5], function(x){ifelse(is.na(dmy(x)), x, dmy(x))})
$ID_NO
[1] "1478" "5032" "3192" "3978" "6617"
$DTTM
[1] 1157328000 1161907200 1168214400 1169942400 1167955200
$DATE_YEAR
[1] 2006 2006 2007 2007 2007
$TERM
[1] 27 36 10 20 10
$ISSUE_DT
[1] 1158192000 1162425600 1168214400 1170201600 1167955200

Answer 1

我想是ifelse返回数值向量。文件显示

ifelse返回与test 形状相同的值

所以这就是为什么（推测）CCD_ 4矢量被强制为数字的原因。此解决方法可能会有所帮助：

lapply(df, function(x){
    y <- dmy(x)
    if (all(is.na(y))) return(x)
    y
  })