Nothing
#' Classification
#'
#' @export
#' @param dataset_key (character/integer/numeric) dataset identifier
#' @param taxon_id (character/integer/numeric) taxon identifier
#' @param ... curl options passed on to [crul::verb-GET]
#' @return a data.frame/tibble with results, a zero row data.frame
#' if no results found
#' @examples
#' if (cp_up("/dataset/1000/taxon/10/classification")) {
#' cp_classification(dataset_key=1000, taxon_id=10)
#' }
#' \dontrun{
#' cp_classification(dataset_key=1000, taxon_id=20)
#' cp_classification(dataset_key=3,
#' taxon_id="6565450e-1cf2-4dc2-acbb-db728e42e635")
#' }
cp_classification <- function(dataset_key, taxon_id, ...) {
assert(dataset_key, c("character", "integer", "numeric"))
assert(taxon_id, c("character", "integer", "numeric"))
path <- sprintf("dataset/%s/taxon/%s/classification", dataset_key, taxon_id)
tmp <- cp_GET(col_base(), path, ...)
handle_taxon(tmp)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.