# Built-in reponse example
library(xml2)
doc = list("Tel-Aviv" = as_xml_document(response_geocode))
pnt = mp_get_points(doc)
bounds = mp_get_bounds(doc)
if (FALSE) {
# Text file with API key
key = readLines("~/key")
# Basic use
addresses = c("Rehovot", "Beer-Sheva", "New-York")
doc = mp_geocode(addresses, key = key)
pnt = mp_get_points(doc)
pnt
# Using the 'region' parameter
doc = mp_geocode(addresses = "Toledo", key = key)
mp_get_points(doc)
doc = mp_geocode(addresses = "Toledo", region = "es", key = key)
mp_get_points(doc)
# Various addresses
addresses = c(
"Baker Street 221b, London",
"Brandenburger Tor, Berlin",
"",
"Platz der Deutschen Einheit 1, Hamburg",
"Arc de Triomphe de l'Etoile, Paris",
NA
)
doc = mp_geocode(addresses, key = key)
pnt = mp_get_points(doc)
pnt
# Specifying a bounding box
b = c(-118.604794, 34.172684, -118.500938, 34.236144) # Bounds as xmin/ymin/xmax/ymax
result = mp_geocode(addresses = "Winnetka", key = key)
mp_get_points(result)
result = mp_geocode(addresses = "Winnetka", bounds = b, key = key)
mp_get_points(result)
result = mp_geocode(addresses = rep("Winnetka", 3), bounds = list(b, NA, b), key = key)
mp_get_points(result)
}
Run the code above in your browser using DataLab