r - 如何在 r 中将错误(不存在)字符列排列为日期？(类似将字符列转换为 r 中的日期)

Question

ymd("2011-11-31") 
All formats failed to parse. No formats found.[1] NA

2011-11 有 30 天而不是 31 天，所以 ymd 处于失败状态。
我的数据在这样的日期列中有一些错误的日期，我想学习优雅的处理方式。
是否有任何包或函数可以使数据像“2011-12-01”一样？

Answer 1

类似的答案在这里但也适用于滚动的月份和年份

library(lubridate)
d <- c("2011-11-31",'2011-13-04','2011-12-32')

parse_false_date <- function(d) {
  x <- strcapture("(\\d{4})-(\\d{2})-(\\d{2})", d, 
    data.frame(y=integer(),m=integer(),d=integer()))
  make_date(x$y)+months(x$m-1)+days(x$d-1)
}

parse_false_date(d)
#> [1] "2011-12-01" "2012-01-04" "2012-01-01"