Опираясь на комментарий @ jpmam1, похоже, что вы можете просто использовать lubridate::parse_date_time
с неограниченным количеством шаблонов. Если вы укажете достаточно, он будет соответствовать чему угодно.
mydates <- c("April 11, 2020", "Apr 11", "4/11/20", "04-11", "April 11, 1 p.m.", "04/11/2020, 1:00pm")
parse_date_time(mydates,c("mdy","mdY","Bdy","bd","md","Bdh","mdYHM"))
#[1] "2020-04-11 00:00:00 UTC" "0000-04-11 00:00:00 UTC" "2020-04-11 00:00:00 UTC" "0000-04-11 00:00:00 UTC" "2020-04-11 01:00:00 UTC"
#[6] "2020-04-11 01:00:00 UTC"
Это соответствует годовой дате с 0000
, что вы могли бы исправить позже.