R/rev_geocoding_country.R

In ZiggerZZ/Rproject: Probabylity analysis of SNCF train delays

#' rev_geocoding_country
#'
#' @param lat latitude of the departement
#' @param lon longitude of the departement
#'
#' @return country (char)
#' @export
#' @importFrom jsonlite fromJSON
#'
#' @examples
#' rev_geocoding_country( 47.01671,-1.435332)
#'

rev_geocoding_country <- function(lat, lon)
{
  d <- jsonlite::fromJSON(gsub("\\@lon\\@", lon, gsub("\\@lat\\@", lat,
                                                      'https://nominatim.openstreetmap.org/reverse?format=jsonv2&lat=@lat@&lon=@lon@&zoom=18&addressdetails=1')))
  if(length(d) == 0) return(data.frame( postcode = 0))
  return(country = as.character(d$address$country))
}