sandbox/query_debugging/osm_test.R

In jessecambon/tidygeocoder: Geocoding Made Easy

# OSM query

addr <- 'Tokyo, Japan'

# 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 = 5, addressdetails = '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)