Bing :
taRifx.geo (funciona com o Google) e supostamente funciona com o Bing, mas eu nunca consegui fazê-lo funcionar, então escrevi minha própria função.
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")
Respostas:
As condições da API mudam constantemente, mas isso deve funcionar no momento.
OSM :
Yahoo :
Bing : taRifx.geo (funciona com o Google) e supostamente funciona com o Bing, mas eu nunca consegui fazê-lo funcionar, então escrevi minha própria função.
Google :
fonte