## Not run:
# x <- "Solanum tuberosum"
# synonyms_usda(x, spec_type = "plant", process = TRUE, clean = TRUE)
# x <- c("Phytophthora infestans", "Polyporus badius")
# synonyms_usda(x, spec_type = "fungus", process = TRUE, clean = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab