create_url <- function(endpoint, parameters = NULL) {
url = paste0("https://api.polygon.io/", endpoint)
if (length(parameters)) {
parameters = sapply(names(parameters), function(key) paste0(key, "=", parameters[[key]]))
}
#
if (!is.null(polygon_env$api_key)) {
parameters = c(parameters, paste("apiKey", polygon_env$api_key, sep = "="))
}
paste(url, paste(parameters, collapse = "&"), sep = "?")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.