## Not run:
# # Plug in taxonomic IDs
# children(161994, db = "itis")
# children(8028, db = "ncbi")
# children("578cbfd2674a9b589f19af71a33b89b6", db = "col")
# ## works with numeric if as character as well
# children("161994", db = "itis")
#
# # Plug in taxon names
# children("Salmo", db = 'col')
# children("Salmo", db = 'itis')
# children("Salmo", db = 'ncbi')
#
# # Plug in IDs
# (id <- get_colid("Apis"))
# children(id)
#
# ## Equivalently, plug in the call to get the id via e.g., get_colid into children
# (id <- get_colid("Apis"))
# children(id)
# children(get_colid("Apis"))
#
# # Many taxa
# sp <- c("Tragia", "Schistocarpha", "Encalypta")
# children(sp, db = 'col')
# children(sp, db = 'itis')
#
# # Two data sources
# (ids <- get_ids("Apis", db = c('col','itis')))
# children(ids)
# ## same result
# children(get_ids("Apis", db = c('col','itis')))
#
# # Use the rows parameter
# children("Poa", db = 'col')
# children("Poa", db = 'col', rows=1)
#
# # use curl options
# library("httr")
# res <- children("Poa", db = 'col', rows=1, config=verbose())
# res <- children("Salmo", db = 'itis', config=verbose())
# res <- children("Salmo", db = 'ncbi', config=verbose())
# ## End(Not run)
Run the code above in your browser using DataLab