## Not run:
# get_boldid(searchterm = "Agapostemon")
# get_boldid(searchterm = "Chironomus riparius")
# get_boldid(c("Chironomus riparius","Quercus douglasii"))
# splist <- names_list('species')
# get_boldid(splist, verbose=FALSE)
#
# # Fuzzy searching
# get_boldid(searchterm="Osmi", fuzzy=TRUE)
#
# # Get back a subset
# get_boldid(searchterm="Osmi", fuzzy=TRUE, rows = 1)
# get_boldid(searchterm="Osmi", fuzzy=TRUE, rows = 1:10)
# get_boldid(searchterm=c("Osmi","Aga"), fuzzy=TRUE, rows = 1)
# get_boldid(searchterm=c("Osmi","Aga"), fuzzy=TRUE, rows = 1:3)
#
# # When not found
# get_boldid("howdy")
# get_boldid(c("Chironomus riparius", "howdy"))
# get_boldid('Epicordulia princeps')
# get_boldid('Arigomphus furcifer')
# get_boldid("Cordulegaster erronea")
# get_boldid("Nasiaeshna pentacantha")
#
# # Narrow down results to a division or rank, or both
# ## Satyrium example
# ### Results w/o narrowing
# get_boldid("Satyrium")
# ### w/ phylum
# get_boldid("Satyrium", division = "Plants")
# get_boldid("Satyrium", division = "Animals")
#
# ## Rank example
# get_boldid("Osmia", fuzzy = TRUE)
# get_boldid("Osmia", fuzzy = TRUE, rank = "genus")
#
# # Fuzzy filter on any filtering fields
# ## uses grep on the inside
# get_boldid("Satyrium", division = "anim")
# get_boldid("Aga", fuzzy = TRUE, parent = "*idae")
#
# # Convert a boldid without class information to a boldid class
# as.boldid(get_boldid("Agapostemon")) # already a boldid, returns the same
# as.boldid(get_boldid(c("Agapostemon","Quercus douglasii"))) # same
# as.boldid(1973) # numeric
# as.boldid(c(1973,101009,98597)) # numeric vector, length > 1
# as.boldid("1973") # character
# as.boldid(c("1973","101009","98597")) # character vector, length > 1
# as.boldid(list("1973","101009","98597")) # list, either numeric or character
# ## dont check, much faster
# as.boldid("1973", check=FALSE)
# as.boldid(1973, check=FALSE)
# as.boldid(c("1973","101009","98597"), check=FALSE)
# as.boldid(list("1973","101009","98597"), check=FALSE)
#
# (out <- as.boldid(c(1973,101009,98597)))
# data.frame(out)
# as.boldid( data.frame(out) )
#
# # Get all data back
# get_boldid_("Osmia", fuzzy=TRUE, rows=1:5)
# get_boldid_("Osmia", fuzzy=TRUE, rows=1)
# get_boldid_(c("Osmi","Aga"), fuzzy=TRUE, rows = 1:3)
#
# # Curl options
# library("httr")
# get_boldid(searchterm = "Agapostemon", config=verbose())
# get_boldid(searchterm = "Agapostemon", config=progress())
#
# # use curl options
# library("httr")
# get_boldid("Agapostemon", config=verbose())
# bb <- get_boldid("Agapostemon", config=progress())
# ## End(Not run)
Run the code above in your browser using DataLab