## new environment for url_key
.url_key <- new.env(parent = emptyenv())
#' Set url key
#' Essential function to operate stock screen functions
#'
#' \code{set_urlkey} sets the url_key for stock screen functions
#'
#' The function takes a json filename and sets the url_key to the environent
#'
#' @importFrom jsonlite fromJSON
#'
#' @param filename a character vector of the json file
#'
#' @return NULL
#'
#' @export
set_urlkey <- function(filename) {
#check if file exists
if(!file.exists(filename)) {
stop('file ', filename, "does not exists")
} else {
url.key <- jsonlite::fromJSON(filename)
if(is.character(url.key$url_key)) {
assign(x = 'url_key',
value = url.key$url_key,
envir = .url_key
)
} else {
message("non-character url key")
return(invisible(NULL))
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.