df_want <- df_current %>%
           mutate(FirstName = stringr::str_split(data_current, "-") %>% map_chr(., 1)) %>%
           mutate(LastName = stringr::str_split(data_current, "-") %>% map_chr(., 2)) %>%
           mutate(nino = stringr::str_split(data_current, "-") %>% map_chr(., 3))