Nothing
#' Build a VMS web service url
#'
#' utility to build a url with optional query arguments
#'
#' @param service the name of the service
#' @param ... named arguments will be added as queries
#'
#' @return a complete url as a character string
#'
#' @examples
#'
#' vms_api("hi", bye = 21)
#' vms_api("csquares", argument1 = 2021, argument2 = NULL)
#'
#' @importFrom httr parse_url build_url GET
#'
#' @export
vms_api <- function(service, ...) {
url <- paste0(api_url(), "/", service)
url <- parse_url(url)
url$query <- list(...)
url <- build_url(url)
url
}
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.