# \donttest{
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))
# }
Run the code above in your browser using DataLab