# NOT RUN {
raw1 <- query_api("http://nominatim.openstreetmap.org/search",
get_api_query("osm", list(address = 'Hanoi, Vietnam')))
raw1$status
extract_results('osm', jsonlite::fromJSON(raw1$content))
raw2 <- query_api("http://nominatim.openstreetmap.org/reverse",
get_api_query("osm", custom_parameters = list(lat = 38.895865, lon = -77.0307713)))
extract_reverse_results('osm', jsonlite::fromJSON(raw2$content))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab