#' Get rate limit data.
#'
#' @export
#'
#' @template key-curl
#' @examples \dontrun{
#' rate_limit()
#' }
rate_limit <- function(key = NULL, ...) {
key <- check_key(key)
url <- sprintf('%s/limits/%s', en_base(), key)
json <- enigma_GET(url, NULL, ...)
structure(json, class = "enigma_rate")
}
#' @export
print.enigma_rate <- function(x, ...) {
cat("Period: ", x$period, "\n", sep = "")
cat("Rate limit: 5000", "\n", sep = "")
cat("Remaining - data: ", x$data, "\n", sep = "")
cat("Remaining - meta: ", x$meta, "\n", sep = "")
cat("Remaining - export: ", x$export, "\n", sep = "")
cat("Resets in: ", time(x$seconds_remaining), "\n", sep = "")
}
time <- function(x) {
x <- as.integer(x)
if (x > 3600) {
paste0(x %/% 3600, " hours")
}
else if (x > 300) {
paste0(x %/% 60, " minutes")
}
else if (x > 60) {
paste0(round(x/60, 1), " minutes")
}
else {
paste0(x, "s")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.