एपीआई की स्थिति लगातार बदलती रहती है, लेकिन इसे अभी काम करना चाहिए।
OSM :
devtools::install_github("hrbrmstr/nominatim")
library(nominatim)
b1 <- osm_geocode("Berlin, Germany")
b1[c("lat", "lon")]
याहू :
devtools::install_github("trestletech/rydn")
library(rydn)
options(RYDN_KEY="yourAPIkey", RYDN_SECRET="yourSecret")
b2 <- find_place("Berlin, Germany")
b2[c("latitude", "longitude")]
बिंग :
taRifx.geo (Google के साथ काम करता है) और माना जाता है कि वह बिंग के साथ काम करता है, लेकिन मुझे यह काम करने के लिए कभी नहीं मिल सकता था, इसलिए मैंने अपना फ़ंक्शन लिखा।
bGeoCode <- function(str, BingMapsKey){
require(RCurl)
require(RJSONIO)
u <- URLencode(paste0("http://dev.virtualearth.net/REST/v1/Locations?q=", str, "&maxResults=1&key=", BingMapsKey))
d <- getURL(u)
j <- fromJSON(d,simplify = FALSE)
if (j$resourceSets[[1]]$estimatedTotal > 0) {
lat <- j$resourceSets[[1]]$resources[[1]]$point$coordinates[[1]]
lng <- j$resourceSets[[1]]$resources[[1]]$point$coordinates[[2]]
}
else {
lat <- lng <- NA
}
c(lat,lng)
}
bGeoCode("Berlin, Germany", "yourAPIKeyHere")
Google :
library(ggmap)
geocode("Berlin, Germany", source="google")