R/geocode_each.R

In lvaudor/mixr: Functions to simplify text mining with multiple languages

#' Geocodes one location through the Google API. See  [here](https://developers.google.com/maps/documentation/geocoding/intro#Types) for the list of all possibilities supported by the Google Map geocoding API.
#' @param stringlocation a location string
#' @param method the API to send the request to. Can be "opencage" (default) or "google".
#' @param info the variables to inform: by default, c("lat","lng").
#' Information can be many other variables depending on the method you are using. Type `help(geocode_google)` or `help(geocode_opencage)` to see details.
#' @return tibble with additional columns corresponding to the info required
geocode_each=function(stringlocation,method,info=c("lat","lng")){
    if(method=="google"){
      result=geocode_google(stringlocation,info=info)
    }
    if(method=="opencage"){
      result=geocode_opencage(stringlocation,info=info)
    }
  return(result)
}