spp <- c("Panthera onca (Linnaeus, 1758)",
"Zonotrichia capensis subtorquata Swainson, 1837",
"Paraganaspis egeria Díaz & Gallardo, 1996",
"Arrenurus tumulosus intercursor")
spp_new <- extract_binomial(species_names = spp)
spp_new
Run the code above in your browser using DataLab