[R-br] API de Georreferenciamento do Google

[Éder Comunello]

Helder e demais colegas, boa noite!

Boa parte dos problemas são decorrentes da atualização das APIs do Google,
havendo mudança nos links e parâmetros a utilizar.

No primeiro caso é só usar o pacote sugerido, com a ressalva de avaliar as
coordenadas retornadas. Algumas podem não corresponder ao que se pretendia
obter. Segue exemplo

### <code r>
### instala pacote se ainda não instalado...
if (!"ggmap" %in% installed.packages()) {install.packages("ggmap", dep=T)}
require(ggmap)

locais <- c("Avenida Marcelino Pires, 3600,  Dourados, MS",
            "Av. Marcelino Pires, 5488,      Dourados, MS",
            "Avenida Marcelino Pires, NA,    Dourados, MS",
            "Av. Marcelinho Ozires, 3000,    Dourados, MS",
            "Rua Reinaldo Bianchi, 1650,     Dourados, MS",
            "Rua Nononon Nonon, 2340,        Dourados, MS")

geocode(locais)
### observar as coordenadas retornadas para locais!
### somente as duas primeira linhas correspondem à posição 'real' dos
logradouros

### para obter informação sobre a coordenada use output="more"
geocode(locais, output="more")
geocode(locais, output="more")[c(1:4,10)] ### principais informações (ver
type e loctype)
### </code>

No segundo caso, parece que o pacote não foi instalado (usar
install.packages() antes de require()).

### <code r>
### instala pacote se ainda não instalado...
if (!"plotGoogleMaps" %in% installed.packages())
{install.packages("plotGoogleMaps", dep=T)}
require(plotGoogleMaps)

ll <- geocode(locais)

{
          dat <- data.frame(ll, locais)
          coordinates(dat)=~lon+lat
          proj4string(dat) <- CRS("+proj=longlat +datum=WGS84")
}

plotGoogleMaps(dat) ### abrirá 'dat.htm' no browser padrão!!!
### </code>

No terceiro caso, parece haver erros na linha de comando (cooimg).

cooimg <- GetMap(center=c(9lon9=ll[2,4], 9lat9=ll[2,3]),
zoom=16,maptype="roadmap", destfile="marimg.png", format="png32")

Segue um exemplo reproduzível desdobrado dos exemplos anteriores...

### <code r>
### instala pacote se ainda não instalado...
if (!"RgoogleMaps" %in% installed.packages())
{install.packages("RgoogleMaps", dep=T)}
require(RgoogleMaps)
map <- GetMap(center=c(-22.22258, -54.76349), zoom=6, maptype="roadmap",
destfile="tmp.png", format="png32")
getwd(); dir(getwd(), pattern=".png$") ### lista arquivos .png salvos!

PlotOnStaticMap(map) ### plota figura
### </code>

Éder Comunello <c <comunello.eder em gmail.com>omunello.eder em gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140214/b99c3770/attachment.html>