Tentei transformar 21/04/87 em anos e não consegui!

x=21/04/87
(c(Sys.Date() - as.Date(gsub("(\\d{2})$", "19\\1", x), "%d/%m/%Y")) /365.25) %/% 1

[1] NA