Nothing
#' @importFrom icesConnect ices_get_jwt
#' @importFrom httr content
vms_get <- function(url, retry = TRUE, quiet = FALSE, verbose = FALSE, content = TRUE, use_token = FALSE) {
resp <-
ices_get_jwt(
url,
retry = retry, quiet = quiet, verbose = verbose,
jwt = if (use_token) NULL else ""
)
if (content) {
content(resp, simplifyVector = TRUE)
} else {
resp
}
}
#' @importFrom icesConnect ices_post_jwt
vms_post <- function(url, body = list(), retry = TRUE, verbose = FALSE, use_token = FALSE) {
out <-
ices_post_jwt(
url,
body,
encode = "multipart",
retry = retry,
verbose = verbose,
jwt = if (use_token) NULL else ""
)
return(out)
}
api_url <- function() {
# make an option?
"https://taf.ices.dk/vms/api"
}
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.