## Not run:
# get_uid(c("Chironomus riparius", "Chaetopteryx"))
# get_uid(c("Chironomus riparius", "aaa vva"))
#
# # When not found
# get_uid("howdy")
# get_uid(c("Chironomus riparius", "howdy"))
#
# # Narrow down results to a division or rank, or both
# ## By modifying the query
# ### w/ modifiers to the name
# get_uid(sciname = "Aratinga acuticauda", modifier = "Organism")
# get_uid(sciname = "bear", modifier = "Common Name")
#
# ### w/ rank query
# get_uid(sciname = "Pinus", rank_query = "genus")
# get_uid(sciname = "Pinus", rank_query = "subgenus")
# ### division query doesn't really work, for unknown reasons, so not available
#
# ## By filtering the result
# ## Echinacea example
# ### Results w/o narrowing
# get_uid("Echinacea")
# ### w/ division
# get_uid(sciname = "Echinacea", division_filter = "eudicots")
# get_uid(sciname = "Echinacea", division_filter = "sea urchins")
#
# ## Satyrium example
# ### Results w/o narrowing
# get_uid(sciname = "Satyrium")
# ### w/ division
# get_uid(sciname = "Satyrium", division_filter = "monocots")
# get_uid(sciname = "Satyrium", division_filter = "butterflies")
#
# ## Rank example
# get_uid(sciname = "Pinus")
# get_uid(sciname = "Pinus", rank_filter = "genus")
# get_uid(sciname = "Pinus", rank_filter = "subgenus")
#
# # Fuzzy filter on any filtering fields
# ## uses grep on the inside
# get_uid("Satyrium", division_filter = "m")
#
# # specify rows to limit choices available
# get_uid('Dugesia') # user prompt needed
# get_uid('Dugesia', rows=1) # 2 choices, so returns only 1 row, so no choices
# get_uid('Dugesia', ask = FALSE) # returns NA for multiple matches
#
# # Go to a website with more info on the taxon
# res <- get_uid("Chironomus riparius")
# browseURL(attr(res, "uri"))
#
# # Convert a uid without class information to a uid class
# as.uid(get_uid("Chironomus riparius")) # already a uid, returns the same
# as.uid(get_uid(c("Chironomus riparius","Pinus contorta"))) # same
# as.uid(315567) # numeric
# as.uid(c(315567,3339,9696)) # numeric vector, length > 1
# as.uid("315567") # character
# as.uid(c("315567","3339","9696")) # character vector, length > 1
# as.uid(list("315567","3339","9696")) # list, either numeric or character
# ## dont check, much faster
# as.uid("315567", check=FALSE)
# as.uid(315567, check=FALSE)
# as.uid(c("315567","3339","9696"), check=FALSE)
# as.uid(list("315567","3339","9696"), check=FALSE)
#
# (out <- as.uid(c(315567,3339,9696)))
# data.frame(out)
# as.uid( data.frame(out) )
#
# # Get all data back
# get_uid_("Puma concolor")
# get_uid_("Dugesia")
# get_uid_("Dugesia", rows=2)
# get_uid_("Dugesia", rows=1:2)
# get_uid_(c("asdfadfasd","Pinus contorta"))
#
# # use curl options
# library("httr")
# get_uid("Quercus douglasii", config=verbose())
# bb <- get_uid("Quercus douglasii", config=progress())
# ## End(Not run)
Run the code above in your browser using DataLab