## Not run:
# get_colid(sciname='Poa annua')
# get_colid(sciname='Pinus contorta')
# get_colid(sciname='Puma concolor')
# # get_colid(sciname="Abudefduf saxatilis")
#
# get_colid(c("Poa annua", "Pinus contorta"))
#
# # specify rows to limit choices available
# get_colid(sciname='Poa annua')
# get_colid(sciname='Poa annua', rows=1)
# get_colid(sciname='Poa annua', rows=2)
# get_colid(sciname='Poa annua', rows=1:2)
#
# # When not found
# get_colid(sciname="uaudnadndj")
# get_colid(c("Chironomus riparius", "uaudnadndj"))
#
# # Narrow down results to a division or rank, or both
# ## Satyrium example
# ### Results w/o narrowing
# get_colid("Satyrium")
# ### w/ division
# get_colid("Satyrium", kingdom = "Plantae")
# get_colid("Satyrium", kingdom = "Animalia")
#
# ## Rank example
# get_colid("Poa")
# get_colid("Poa", kingdom = "Plantae")
# get_colid("Poa", kingdom = "Animalia")
#
# # Fuzzy filter on any filtering fields
# ## uses grep on the inside
# get_colid("Satyrium", kingdom = "p")
#
# # Convert a uid without class information to a uid class
# as.colid(get_colid("Chironomus riparius")) # already a uid, returns the same
# as.colid(get_colid(c("Chironomus riparius","Pinus contorta"))) # same
# as.colid("714831352ad94741e4321eccdeb29f58") # character
# # character vector, length > 1
# as.colid(c("714831352ad94741e4321eccdeb29f58", "3b35900f74ff6e4b073ddb95c32b1f8d"))
# # list, either numeric or character
# as.colid(list("714831352ad94741e4321eccdeb29f58", "3b35900f74ff6e4b073ddb95c32b1f8d"))
# ## dont check, much faster
# as.colid("714831352ad94741e4321eccdeb29f58", check=FALSE)
# as.colid(c("714831352ad94741e4321eccdeb29f58", "3b35900f74ff6e4b073ddb95c32b1f8d"),
# check=FALSE)
# as.colid(list("714831352ad94741e4321eccdeb29f58", "3b35900f74ff6e4b073ddb95c32b1f8d"),
# check=FALSE)
#
# (out <- as.colid(c("714831352ad94741e4321eccdeb29f58", "3b35900f74ff6e4b073ddb95c32b1f8d")))
# data.frame(out)
# as.colid( data.frame(out) )
#
# # Get all data back
# get_colid_("Poa annua")
# get_colid_("Poa annua", rows=2)
# get_colid_("Poa annua", rows=1:2)
# get_colid_(c("asdfadfasd","Pinus contorta"))
#
# get_colid(sciname="Andropadus nigriceps fusciceps", rows=1)
#
# # use curl options
# library("httr")
# get_colid("Quercus douglasii", config=verbose())
# bb <- get_colid("Quercus douglasii", config=progress())
# ## End(Not run)
Run the code above in your browser using DataLab