Open rjweiss opened 8 years ago
dat$lastname <- tolower(dat$name) %>% str_replace("mrs","") %>% str_replace("de ","") %>% str_replace("^[a-zA-Z] ","") %>% str_replace(" +$","") %>% str_extract( pattern = "^([a-zA-Z']+)")
dat$firstname <- tolower(dat$name) %>% str_replace("mrs","") %>% str_replace("rfd","") %>% str_replace("r f d","") %>% str_replace("rt","") %>% str_replace(" [a-zA-Z][rR]$","") %>% str_replace(" +$","") %>% str_replace(" [a-zA-Z]$","") %>% str_replace(" [a-zA-Z]$","") %>% str_replace(" +$","") %>% str_extract( pattern = "[a-zA-Z']*$")
dat$lastname <- tolower(dat$name) %>% str_replace("mrs","") %>% str_replace("de ","") %>%
str_replace("^[a-zA-Z] ","") %>% str_replace(" +$","") %>% str_extract( pattern = "^([a-zA-Z']+)")
dat$firstname <- tolower(dat$name) %>%
str_replace("mrs","") %>% str_replace("rfd","") %>% str_replace("r f d","") %>% str_replace("rt","") %>% str_replace(" [a-zA-Z][rR]$","") %>% str_replace(" +$","") %>% str_replace(" [a-zA-Z]$","") %>% str_replace(" [a-zA-Z]$","") %>% str_replace(" +$","") %>% str_extract( pattern = "[a-zA-Z']*$")