Nothing
#' Returns image URL for satellite imagery
#'
#' @param location location set by set_location
#' @param key weather underground API key
#' @param raw if TRUE return raw httr object
#' @param message if TRUE print out requested URL
#' @return URL to satellite imagery
#' @export
#' @examples
#' \dontrun{
#' satellite(set_location(territory = "Hawaii", city = "Honolulu"))
#' satellite(set_location(territory = "Washington", city = "Seattle"))
#' satellite(set_location(territory = "Louisiana", city = "New Orleans"))
#' }
satellite <- function(location,
key = get_api_key(),
raw = FALSE,
message = TRUE) {
parsed_req <- wunderground_request(
request_type = "satellite",
location = location,
key = key,
message = message
)
if (raw) {
return(parsed_req)
}
stop_for_error(parsed_req)
if (!("satellite" %in% names(parsed_req))) {
stop(paste0("Unable to parse satellite information from JSON for: ", location))
}
satellite <- parsed_req$satellite
return(c(
satellite$image_url,
satellite$image_url_ir4,
satellite$image_url_vis
))
}
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.