sandbox/osm_NA_debug.R

In jessecambon/tidygeocoder: Geocoding Made Easy

# https://github.com/jessecambon/tidygeocoder/issues/83

# OSM query

addr <- 'Shop A & B, GF Coble Court, 127 – 139 Ap Lei Chau Main Street, Aberdeen, HK'

# https://nominatim.org/release-docs/develop/api/Search/
url_base <- "http://nominatim.openstreetmap.org/search"

library(httr)
library(jsonlite)

# limit =1 limits query to one result

soup <- httr::GET(url = url_base, 
                  query = list(q = addr, format = 'json', limit = 1))

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


#coords <- raw_results[c('lat', 'lon')]

results <- extract_results('osm', raw_results)