将正确的世纪添加到带有年份的日期中，并以“无世纪的年份”的形式显示，％y

Question

我有一个格式为生日的文件%d%b%y。一些例如。

# "01DEC71" "01AUG54" "01APR81" "01MAY81" "01SEP83" "01FEB59"

我试图将日期重新格式化为

o108$fmtbirth <- format(as.Date(o108$birth, "%d%b%y"), "%Y/%m/%d")

这就是结果

# "1971/12/01" "2054/08/01" "1981/04/01" "1981/05/01" "1983/09/01" "2059/02/01"

这些是生日，我看到2054。从此页面上，我看到00到68之间的年份值被编码为20，代表世纪。有没有一种方法可以切换此设置，在我的情况下，我只希望将00到12编码为20。