sandbox/reverse_queries/opencage_reverse.R

In jessecambon/tidygeocoder: Geocoding Made Easy

selected_method <- 'opencage'

# https://opencagedata.com/api#reverse-resp

url_base  <- tidygeocoder:::get_opencage_url()

lat <- 6.455027
lon <- 3.384082

soup <- httr::GET(url = url_base, 
                  query = list(q = paste0(as.character(lat), ',', as.character(lon)), 
                               limit = 1,
                               key = tidygeocoder:::get_key(selected_method)))

response <- jsonlite::fromJSON(httr::content(soup, as = 'text', encoding = "UTF-8"))

address <- response$results['formatted']
results <- response$results[!names(response$results) %in% c('formatted')]