Nothing
.refcryptopairsurl <- "https://api.twelvedata.com/cryptocurrencies"
##' Retrieve Reference Data for Cryptocurrency Pairs from \sQuote{twelvedata}
##'
##' \code{ref_crypto_pairs}.
##' @title Reference Data Accessor for Forex Pairs from \sQuote{twelvedata}
##' @param sym (optional, character) A (single or vector) Crypto currency pairs with slash(/) delimiter.
##' @param as (optional, character) A selector for the desired output format: one of
##' \dQuote{data.frame} (the default) or or \dQuote{raw}.
##' @param exchange (optional, character) Exchange where crypto is traded. Default value is unset.
##' @param currency_base (optional, character) Base currency name. Default value is unset.
##' @param currency_quote (optional, character) Quote currency name. Default value is unset.
##' @param flatten_exchanges (bool) Flatten the \dQuote{data.frame}.
##' @param apikey (optional character) An API key override, if missing a value cached from
##' package startup is used. The startup looks for either a file in the per-package config
##' directory provided by \code{tools::R_user_dir} (for R 4.0.0 or later), or the
##' \code{TWELVEDATA_API_KEY} variable.
##' @return The requested data is returned as a \code{data.frame} object.
##' @seealso \url{https://twelvedata.com/docs}
ref_crypto_pairs <- function(sym = "",
as = c("data.frame", "raw"),
exchange = "",
currency_base = "",
currency_quote = "",
flatten_exchanges = TRUE,
apikey) {
if (missing(apikey)) apikey <- .get_apikey()
as <- match.arg(as)
qry <- paste0(.refcryptopairsurl, "?",
"&apikey=", apikey)
if (sym[1] != "") qry <- paste0(qry, "&symbol=", sym)
if (exchange != "") qry <- paste0(qry, "&exchange=", exchange)
if (currency_base != "") qry <- paste0(qry, "¤cy_base=", currency_base)
if (currency_quote != "") qry <- paste0(qry, "¤cy_quote=", currency_quote)
accessed <- format(Sys.time(), tz = "UTC")
res <- RcppSimdJson::fload(qry)
if (as == "raw") return(res)
if(length(qry) == 1) res <- list(res)
names(res) <- seq_along(res)
dat <- lapply(res, function(x){
if(x$status != "ok") stop(x$message, call. = FALSE)
if(is.null(x$data)) warning("A query returned NULL data.", call. = FALSE)
dat <- x$data
dat
})
dat <- do.call("rbind", dat)
if(is.null(dat)) stop("The API returned NULL data. Try to change your query.", call. = FALSE)
if(flatten_exchanges){
dat <- lapply(seq_along(dat$symbol),
function(x){
data.frame(symbol = dat$symbol[x],
available_exchanges = dat$available_exchanges[[x]],
currency_base = dat$currency_base[x],
currency_quote = dat$currency_quote[x],
stringsAsFactors = FALSE)
})
dat <- do.call("rbind", dat)
}
attr(dat, which = "accessed") <- accessed
dat
}
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.