R/Alimentos.R

In klauswiese/Oikos: Oikos

#Ratio Annual Cycle ACF
#K. Wiese Agosto 2018
#Basado en: https://stackoverflow.com/questions/34800031/retrieve-location-coordinates-from-google-maps-in-r
############################################################################################################

Alimentos <- 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=food&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)
}