guess_formats + R + lubridate

Estou tendo problemas para entender como usar a função guess_formats no lubrificado. Eu tenho um vetor de datas em algum conjunto / ordem de formatos desconhecidos. Gostaria de convertê-los em um objeto Date (ou pelo menos converter o maior número possível). O código a seguir é o que eu tentei:

library(lubridate)
sampleDates <- c("4/6/2004","4/6/2004","4/6/2004","4/7/2004",
        "4/6/2004","4/7/2004","2014-06-28","2014-06-30","2014-07-12",
        "2014-07-29","2014-07-29","2014-08-12")
formats <- guess_formats(sampleDates, c("Ymd", "mdY"))
dates <- as.Date(sampleDates, format=formats)

Isso dá a todos os NAs.

Este é obviamente apenas um pequeno exemplo. No caso real, eu não saberia onde os vários formatos estão espalhados e não teria 100% de certeza de que existem apenas% m /% d /% Y e% Y-% m-% d. Alguém poderia me avisar A. como os palpites seriam usados neste exemplo ou B. Existe algo mais apropriado para usar no lubrificado / base R, espero que sem muita regex. Obrigado!

Edit: Eu também tentei parse_date_time. O que não entendo são os seguintes trabalhos para este exemplo:

parse_date_time(sampleDates,
            orders = c("Ymd", "mdY"),
            locale = "eng")

Mas isso não:

parse_date_time(sampleDates,
            orders = c("mdY", "Ydm"),
            locale = "eng")

No meu conjunto real de dados, não saberei a ordem da formatação, o que parece ser importante para esta função.

Edição dupla: Dur, OK, vejo que Ymd no primeiro exemplo parse_date_time e Ydm no segundo ... continue.

questionAnswers(1)

yourAnswerToTheQuestion