#K. Wiese Agosto 2018
#Basado en: https://stackoverflow.com/questions/34800031/retrieve-location-coordinates-from-google-maps-in-r
############################################################################################################
CentroComercial <- function(lat, lon, key, radio, clave = ""){
#Coordenadas extraidas de google maps
coor <- paste(lat,lon,sep=",")
#Dirección base para la consulta con el API
baseurl <- "https://maps.googleapis.com/maps/api/place/nearbysearch/json?"
#Construir consulta
dirConsulta<-paste(baseurl,
"location=",
coor,
"&radius=",
radio,
"&types=shopping_mall&keyword=",
clave,
"&key=",
key,
sep="")
#Ejecutar consulta de escuelas
print(dirConsulta)
data1<-fromJSON(dirConsulta)
lat_long<-data.frame(lat=data1$results$geometry$location$lat,long=data1$results$geometry$location$lng)
#Información de salida Sitios y coordenadas
sitios<-data1$results$name
salida<-cbind(sitios,lat_long)
return(salida)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.