R/GPE_geocode.R

In EL-BID/GPE: An Exploratory Analysis Tool for Georeferenced Program Evaluation

#' GPE_geocode
#'
#' A thin wrapper for ggmap::mutate_geocode. Takes a dataframe, adds lon/lat columns based on an existing address column using Google's geocoding API (https://developers.google.com/maps/documentation/geocoding/start).
#' @export GPE_geocode
#' @param data a dataframe containing an address column
#' @param address the name of a column in the geocode dataframe containing addresses
#' @param key an API key obtained at https://cloud.google.com/maps-platform/
#' @examples
#' \dontrun{
#' GPE_geocode(data = schools, addres = address, key = mykey)
#' }

GPE_geocode <- function(data, address, key) {

    if (is.na(ggmap::google_key()) | ggmap::google_key() != key) ggmap::register_google(key)

    ggmap::mutate_geocode(data = data, location = address)
}