restore species to usda plants: code for https://github.com/USDA/USDA-APIs/issues/7#issuecomment-187791953

species2plants.R

library(data.table)
species <- fread('species.csv')
## identify and remove records that were present when we imported the table
usdaplants <- species[!is.na(NativeStatus) ] 

## data table method of renaming columns
setnames(usdaplants, 
     old = c('id', 'genus', 'species', 'scientificname', 'commonname'), 
     new = c('betydb.species.id', 'Genus', 'Species', 'ScientificName', 'CommonName'))

## data table method of deleting rows
usdaplants[, spcd:=NULL]

write.csv(usdaplants, file = 'usdaplants.csv')
save(usdaplants, file = 'usdaplants.RData')