## Not run:
# # Plug in taxon IDs
# ## col Ids have to be character, as they are alphanumeric IDs
# downstream("015be25f6b061ba517f495394b80f108", db = "col", downto = "species")
# ## ITIS tsn ids can be numeric or character
# downstream("154395", db = "itis", downto = "species")
# downstream(154395, db = "itis", downto = "species")
#
# # Plug in taxon names
# downstream("Insecta", db = 'col', downto = 'order')
# downstream("Apis", db = 'col', downto = 'species')
# downstream("Apis", db = 'itis', downto = 'species')
# downstream(c("Apis","Epeoloides"), db = 'itis', downto = 'species')
# downstream(c("Apis","Epeoloides"), db = 'col', downto = 'species')
# downstream("Ursus", db = 'gbif', downto = 'species')
# downstream(get_gbifid("Ursus"), db = 'gbif', downto = 'species')
#
# # Plug in IDs
# id <- get_colid("Apis")
# downstream(id, downto = 'species')
#
# ## Equivalently, plug in the call to get the id via e.g., get_colid into downstream
# identical(downstream(id, downto = 'species'),
# downstream(get_colid("Apis"), downto = 'species'))
#
# id <- get_colid("Apis")
# downstream(id, downto = 'species')
# downstream(get_colid("Apis"), downto = 'species')
#
# # Many taxa
# sp <- names_list("genus", 3)
# downstream(sp, db = 'col', downto = 'species')
# downstream(sp, db = 'itis', downto = 'species')
# downstream(sp, db = 'gbif', downto = 'species')
#
# # Both data sources
# ids <- get_ids("Apis", db = c('col','itis'))
# downstream(ids, downto = 'species')
# ## same result
# downstream(get_ids("Apis", db = c('col','itis')), downto = 'species')
#
# # Collect intermediate names
# ## itis
# downstream('Bangiophyceae', db="itis", downto="genus")
# downstream('Bangiophyceae', db="itis", downto="genus", intermediate=TRUE)
# downstream(get_tsn('Bangiophyceae'), downto="genus")
# downstream(get_tsn('Bangiophyceae'), downto="genus", intermediate=TRUE)
# ## col
# downstream(get_colid("Animalia"), downto="class")
# downstream(get_colid("Animalia"), downto="class", intermediate=TRUE)
#
# # Use the rows parameter
# ## note how in the second function call you don't get the prompt
# downstream("Poa", db = 'col', downto="species")
# downstream("Poa", db = 'col', downto="species", rows=1)
#
# # use curl options
# res <- downstream("Apis", db = 'col', downto = 'species', config=verbose())
# res <- downstream("Apis", db = 'itis', downto = 'species', config=verbose())
# res <- downstream("Ursus", db = 'gbif', downto = 'species', config=verbose())
# ## End(Not run)
Run the code above in your browser using DataLab