How to extract birth and death year from string in R?...