## Not run:
# get_gbifid(sciname='Poa annua')
# get_gbifid(sciname='Pinus contorta')
# get_gbifid(sciname='Puma concolor')
#
# # multiple names
# get_gbifid(c("Poa annua", "Pinus contorta"))
#
# # specify rows to limit choices available
# get_gbifid(sciname='Pinus')
# get_gbifid(sciname='Pinus', rows=10)
# get_gbifid(sciname='Pinus', rows=1:3)
#
# # When not found, NA given
# get_gbifid(sciname="uaudnadndj")
# get_gbifid(c("Chironomus riparius", "uaudnadndj"))
#
# # Narrow down results to a division or rank, or both
# ## Satyrium example
# ### Results w/o narrowing
# get_gbifid("Satyrium")
# ### w/ phylum
# get_gbifid("Satyrium", phylum = "Tracheophyta")
# get_gbifid("Satyrium", phylum = "Arthropoda")
# ### w/ phylum & rank
# get_gbifid("Satyrium", phylum = "Arthropoda", rank = "genus")
#
# ## Rank example
# get_gbifid("Poa", method = "lookup")
# get_gbifid("Poa", method = "lookup", rank = "genus")
# get_gbifid("Poa", method = "lookup", family = "Thripidae")
#
# # Fuzzy filter on any filtering fields
# ## uses grep on the inside
# get_gbifid("Satyrium", phylum = "arthropoda")
# get_gbifid("A*", method = "lookup", order = "*tera")
# get_gbifid("A*", method = "lookup", order = "*ales")
#
# # Convert a uid without class information to a uid class
# as.gbifid(get_gbifid("Poa annua")) # already a uid, returns the same
# as.gbifid(get_gbifid(c("Poa annua","Puma concolor"))) # same
# as.gbifid(2704179) # numeric
# as.gbifid(c(2704179,2435099,3171445)) # numeric vector, length > 1
# as.gbifid("2704179") # character
# as.gbifid(c("2704179","2435099","3171445")) # character vector, length > 1
# as.gbifid(list("2704179","2435099","3171445")) # list, either numeric or character
# ## dont check, much faster
# as.gbifid("2704179", check=FALSE)
# as.gbifid(2704179, check=FALSE)
# as.gbifid(2704179, check=FALSE)
# as.gbifid(c("2704179","2435099","3171445"), check=FALSE)
# as.gbifid(list("2704179","2435099","3171445"), check=FALSE)
#
# (out <- as.gbifid(c(2704179,2435099,3171445)))
# data.frame(out)
# as.uid( data.frame(out) )
#
# # Get all data back
# get_gbifid_("Puma concolor")
# get_gbifid_(c("Pinus", "uaudnadndj"))
# get_gbifid_(c("Pinus", "Puma"), rows=5)
# get_gbifid_(c("Pinus", "Puma"), rows=1:5)
#
# # use curl options
# library("httr")
# get_gbifid("Quercus douglasii", config=verbose())
# bb <- get_gbifid("Quercus douglasii", config=progress())
# ## End(Not run)
Run the code above in your browser using DataLab