## Not run:
# # Plug in taxon IDs
# classification(9606, db = 'ncbi')
# classification(c(9606, 55062), db = 'ncbi')
# classification(129313, db = 'itis')
# classification(57361017, db = 'eol')
# classification(c(2704179, 2441176), db = 'gbif')
# classification(25509881, db = 'tropicos')
# classification("NBNSYS0000004786", db = 'nbn')
# ## works the same if IDs are in class character
# classification(c("2704179", "2441176"), db = 'gbif')
#
# # Plug in taxon names
# ## in this case, we use get_*() fxns internally to first get taxon IDs
# classification(c("Chironomus riparius", "aaa vva"), db = 'ncbi')
# classification(c("Chironomus riparius", "aaa vva"), db = 'ncbi', verbose=FALSE)
# classification(c("Chironomus riparius", "aaa vva"), db = 'itis')
# classification(c("Chironomus riparius", "aaa vva"), db = 'itis', verbose=FALSE)
# classification(c("Chironomus riparius", "aaa vva"), db = 'eol')
# classification(c("Chironomus riparius", "aaa vva"), db = 'col')
# classification("Alopias vulpinus", db = 'nbn')
# classification(c("Chironomus riparius", "aaa vva"), db = 'col', verbose=FALSE)
# classification(c("Chironomus riparius", "asdfasdfsfdfsd"), db = 'gbif')
# classification("Poa annua", db = 'tropicos')
#
# # Use methods for get_uid, get_tsn, get_eolid, get_colid, get_tpsid
# classification(get_uid(c("Chironomus riparius", "Puma concolor")))
#
# classification(get_uid(c("Chironomus riparius", "aaa vva")))
# classification(get_tsn(c("Chironomus riparius", "aaa vva")))
# classification(get_tsn(c("Chironomus riparius", "aaa vva"), verbose = FALSE))
# classification(get_eolid(c("Chironomus riparius", "aaa vva")))
# classification(get_colid(c("Chironomus riparius", "aaa vva")))
# classification(get_tpsid(c("Poa annua", "aaa vva")))
# classification(get_gbifid(c("Poa annua", "Bison bison")))
#
# # Pass many ids from class "ids"
# (out <- get_ids(names="Puma concolor", db = c('ncbi','gbif')))
# (cl <- classification(out))
#
# # Bind width-wise from class classification_ids
# cbind(cl)
#
# # Bind length-wise
# rbind(cl)
#
# # Many names to get_ids
# (out <- get_ids(names=c("Puma concolor","Accipiter striatus"), db = c('ncbi','itis','col')))
# (cl <- classification(out))
# rbind(cl)
# ## cbind with so many names results in some messy data
# cbind(cl)
# ## so you can turn off return_id
# cbind( classification(out, return_id=FALSE) )
#
# # rbind and cbind on class classification (from a call to get_colid, get_tsn, etc.
# # - other than get_ids)
# (cl_col <- classification(get_colid(c("Puma concolor","Accipiter striatus"))))
# rbind(cl_col)
# cbind(cl_col)
#
# (cl_uid <- classification(get_uid(c("Puma concolor","Accipiter striatus")), return_id=FALSE))
# rbind(cl_uid)
# cbind(cl_uid)
# ## cbind works a bit odd when there are lots of ranks without names
# (cl_uid <- classification(get_uid(c("Puma concolor","Accipiter striatus")), return_id=TRUE))
# cbind(cl_uid)
#
# (cl_tsn <- classification(get_tsn(c("Puma concolor","Accipiter striatus"))))
# rbind(cl_tsn)
# cbind(cl_tsn)
#
# (tsns <- get_tsn(c("Puma concolor","Accipiter striatus")))
# (cl_tsns <- classification(tsns))
# cbind(cl_tsns)
#
# # NBN data
# (res <- classification(c("Alopias vulpinus","Pinus sylvestris"), db = 'nbn'))
# rbind(res)
# cbind(res)
#
# # Return taxonomic IDs
# ## the return_id parameter is logical, and you can turn it on or off. It's TRUE by default
# classification(c("Alopias vulpinus","Pinus sylvestris"), db = 'ncbi', return_id = TRUE)
# classification(c("Alopias vulpinus","Pinus sylvestris"), db = 'ncbi', return_id = FALSE)
#
# # Use rows parameter to select certain
# classification('Poa annua', db = 'tropicos')
# classification('Poa annua', db = 'tropicos', rows=1:4)
# classification('Poa annua', db = 'tropicos', rows=1)
# classification('Poa annua', db = 'tropicos', rows=6)
# ## End(Not run)
Run the code above in your browser using DataLab