Look at using the R taxize package for this
Look at using the R taxize package for this