猜测和统一日期格式[R]

Question

有人知道一种通过猜测使用单一格式来解析日期的方法，而不是使用lubridate或其他任何包来解析的方法吗？

这不是重复的，因为我在包装之外找不到任何可以解决该问题的答案。

例如，在切换到guess_formats之前，我有时会使用下面的函数来标识ymd或dmy格式，然后将其转换为ymd。

to_ymd <- function(x) {

  x <- gsub("[^0-9]", "/", x)

  is_dmy <- any(grepl("\\/", substr(x, 6, 6)))

  if (is_dmy == TRUE) {

    x <- as.Date(as.character(x), format = "%d/%m/%Y")

  } else {

    x <- as.Date(as.character(x), format = "%Y/%m/%d")

  }

  return(x)

}

但是，这相当慢，并且由于没有考虑其他可能性，因此它肯定不可靠。

有人知道一种更快base R来猜测和统一格式的方法（最重要的是ymd，dmy，还有mdy，没有定界符的格式，等等）？