Existe uma maneira mais elegante de converter anos de dois dígitos para anos de quatro dígitos com lubridato?

Se um vetor de data tiver anos com dois dígitos,mdy() transforma anos entre 00 e 68 em 21 anos do século 21 e anos entre 69 e 99 em 20 anos do século. Por exemplo:

library(lubridate)    
mdy(c("1/2/54","1/2/68","1/2/69","1/2/99","1/2/04"))

fornece a seguinte saída:

Multiple format matches with 5 successes: %m/%d/%y, %m/%d/%Y.
Using date format %m/%d/%y.
[1] "2054-01-02 UTC" "2068-01-02 UTC" "1969-01-02 UTC" "1999-01-02 UTC" "2004-01-02 UTC"

Eu posso consertar isso após o fato subtraindo 100 das datas incorretas para transformar 2054 e 2068 em 1954 e 1968. Mas há um método mais elegante e menos sujeito a erros de analisar datas de dois dígitos para que elas sejam tratadas corretamente processo de análise em si?

Atualizar: Depois que @JoshuaUlrich me indicoustrptime eu encontreiessa questão, que lida com um problema semelhante ao meu, mas usando base R.

Parece que uma boa adição à manipulação de data em R seria uma forma de lidar com pontos de corte de seleção de séculos para datas de dois dígitos dentro das funções de análise de data.

questionAnswers(3)

yourAnswerToTheQuestion