#' Get or set Ambient Weather API key
#'
#' @param force Force setting new API key in current environment
#'
#' @seealso \code{get_or_set_application_key}
#'
#' @export
get_or_set_api_key <- function(force = FALSE) {
# grab environment variable "AW_APPKICATION_KEY"
env <- Sys.getenv('AW_API_KEY')
# if it's not empty, we're done
if (!identical(env, "") && !force) return(env)
if (!interactive()) {
stop("Please set env var AW_API_KEY to your Ambient Weather API key",
call. = FALSE)
}
# ask user to supply the key
message("Couldn't find env var AW_API_KEY. See ?get_or_set_api_key for more details.")
message("Please enter your API key and press enter:")
pat <- readline(": ")
# if user supplies an empty key, throw an error
if (identical(pat, "")) {
stop("API key entry failed", call. = FALSE)
}
message("Updating AW_API_KEY env var")
Sys.setenv(AW_API_KEY = pat)
pat
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.