Nothing
##' @importFrom jsonlite unbox
##' @importFrom httr content
## Match taxon names
.tnrs_match_names <- function(names = NULL, context_name = NULL,
do_approximate_matching = TRUE,
ids = NULL, include_suppressed = FALSE, ...) {
if (is.null(names)) {
stop("You must supply a ", sQuote("names"), " argument")
} else if (!is.character(names)) {
stop(
"Argument ", sQuote("names"), " must be of class ",
sQuote("character")
)
}
if (!is.null(ids)) {
if (length(ids) != length(names)) {
stop(
"Arguments ", sQuote("ids"), " and ",
sQuote("names"), " must be of the same length"
)
} else if (!is.character(ids)) {
stop(
"Argument ", sQuote("ids"), " must be of class ",
sQuote("character")
)
}
}
check_is_flag(do_approximate_matching)
check_is_flag(include_suppressed)
if (!is.null(context_name)) {
check_is_string(context_name)
context_name <- jsonlite::unbox(context_name)
}
q <- list(
names = names, context_name = context_name,
do_approximate_matching = jsonlite::unbox(do_approximate_matching),
ids = ids, include_suppressed = jsonlite::unbox(include_suppressed)
)
toKeep <- sapply(q, is.null)
q <- q[!toKeep]
res <- otl_POST("tnrs/match_names", body = q, ...)
res
}
##' @importFrom httr content
## Get OpenTree TNRS contexts
.tnrs_contexts <- function(...) {
res <- otl_POST("tnrs/contexts", body = list(), ...)
res
}
## Infer taxonomic context from a set of names
.tnrs_infer_context <- function(names = NULL, ...) {
if (is.null(names)) {
stop("Must supply a \'names\' argument")
} else if (!is.character(names)) {
stop("Argument \'names\' must be of class \"character\"")
}
q <- list(names = names)
res <- otl_POST("tnrs/infer_context", body = q, ...)
res
}
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.