## Not run:
# tax_rank(query = "Helianthus annuus", db = "itis")
# tax_rank(query = "Helianthus annuus", db = "ncbi")
# tax_rank(query = "Helianthus", db = "itis")
#
# # query both
# tax_rank(query=c("Helianthus annuus", 'Puma'), db="both")
#
# # An alternative way would be to use classification() and sapply over
# # the list
# x <- 'Baetis'
# classi <- classification(get_uid(x))
# sapply(classi, function(x) x[nrow(x), 'rank'])
# ## End(Not run)
Run the code above in your browser using DataLab