Nothing
#' Google timezone
#'
#' The Google Maps Time Zone API provides time offset data for locations on the
#' surface of the earth. You request the time zone information for a specific
#' latitude/longitude pair and date.
#'
#' @param location \code{vector} of lat/lon pair
#' @param timestamp \code{POSIXct} The Google Maps Time Zone API uses the timestamp to
#' determine whether or not Daylight Savings should be applied. Will default to
#' the current system time.
#' @param language \code{string} specifies the language in which to return the results.
#' See the list of supported languages:
#' \url{https://developers.google.com/maps/faq#using-google-maps-apis}.
#' If no langauge is supplied, the service will attempt to use the language of
#' the domain from which the request was sent.
#' @param key \code{string} A valid Google Developers Timezone API key.
#' @param simplify \code{logical} - TRUE indicates the returned JSON will be
#' coerced into a list. FALSE indicates the returend JSON will be returned as a string
#' @param curl_proxy a curl proxy object
#'
#' @return Either list or JSON string of the timezone
#'
#' @inheritSection google_geocode API use and limits
#'
#' @examples
#' \dontrun{
#' google_timezone(location = c(-37.81659, 144.9841),
#' timestamp = as.POSIXct("2016-06-05"),
#' key = "<your valid api key>")
#' }
#'
#' @export
google_timezone <- function(location,
timestamp = Sys.time(),
language = NULL,
simplify = TRUE,
curl_proxy = NULL,
key = get_api_key("timezone")
){
location <- validateGeocodeLocation(location)
## check timestamp
if(!inherits(timestamp, "POSIXct") | length(timestamp) != 1)
stop("timestamp must be a single POSIXct object")
timestamp <- as.integer(timestamp)
language <- validateLanguage(language)
logicalCheck(simplify)
map_url <- "https://maps.googleapis.com/maps/api/timezone/json?"
map_url <- constructURL(map_url, c("location" = location,
"timestamp" = timestamp,
"language" = language,
"key" = key))
return(downloadData(map_url, simplify, curl_proxy))
}
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.