## Not run:
# get_tpsid(sciname='Poa annua')
# get_tpsid(sciname='Pinus contorta')
#
# get_tpsid(c("Poa annua", "Pinus contorta"))
#
# # specify rows to limit choices available
# get_tpsid('Poa annua')
# get_tpsid('Poa annua', rows=1)
# get_tpsid('Poa annua', rows=25)
# get_tpsid('Poa annua', rows=1:2)
#
# # When not found, NA given (howdy is not a species name, and Chrinomus is a fly)
# get_tpsid("howdy")
# get_tpsid(c("Chironomus riparius", "howdy"))
#
# # Narrow down results to a division or rank, or both
# ## Satyrium example
# ### Results w/o narrowing
# get_tpsid("Satyrium")
# ### w/ rank
# get_tpsid("Satyrium", rank = "var.")
# get_tpsid("Satyrium", rank = "sp.")
#
# ## w/ family
# get_tpsid("Poa")
# get_tpsid("Poa", family = "Iridaceae")
# get_tpsid("Poa", family = "Orchidaceae")
# get_tpsid("Poa", family = "Orchidaceae", rank = "gen.")
#
# # Fuzzy filter on any filtering fields
# ## uses grep on the inside
# get_tpsid("Poa", family = "orchidaceae")
# get_tpsid("Aga", fuzzy = TRUE, parent = "*idae")
#
# # pass to classification function to get a taxonomic hierarchy
# classification(get_tpsid(sciname='Poa annua'))
#
# # factor class names are converted to character internally
# spnames <- as.factor(c("Poa annua", "Pinus contorta"))
# class(spnames)
# get_tpsid(spnames)
#
# # pass in a list, works fine
# get_tpsid(list("Poa annua", "Pinus contorta"))
#
# # Convert a tpsid without class information to a tpsid class
# as.tpsid(get_tpsid("Pinus contorta")) # already a tpsid, returns the same
# as.tpsid(get_tpsid(c("Chironomus riparius","Pinus contorta"))) # same
# as.tpsid(24900183) # numeric
# as.tpsid(c(24900183,50150089,50079838)) # numeric vector, length > 1
# as.tpsid("24900183") # character
# as.tpsid(c("24900183","50150089","50079838")) # character vector, length > 1
# as.tpsid(list("24900183","50150089","50079838")) # list, either numeric or character
# ## dont check, much faster
# as.tpsid("24900183", check=FALSE)
# as.tpsid(24900183, check=FALSE)
# as.tpsid(c("24900183","50150089","50079838"), check=FALSE)
# as.tpsid(list("24900183","50150089","50079838"), check=FALSE)
#
# (out <- as.tpsid(c(24900183,50150089,50079838)))
# data.frame(out)
# as.tpsid( data.frame(out) )
#
# # Get all data back
# get_tpsid_("Poa annua")
# get_tpsid_("Poa annua", rows=2)
# get_tpsid_("Poa annua", rows=1:2)
# get_tpsid_(c("asdfadfasd","Pinus contorta"), rows=1:5)
#
# # use curl options
# library("httr")
# get_tpsid("Quercus douglasii", config=verbose())
# bb <- get_tpsid("Quercus douglasii", config=progress())
# ## End(Not run)
Run the code above in your browser using DataLab