<div dir="ltr"><div>Helder e demais colegas, boa noite!</div><div><br></div><div>Boa parte dos problemas são decorrentes da atualização das APIs do Google, havendo mudança nos links e parâmetros a utilizar.</div><div><br></div>
<div>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</div><div><br></div><div>### <code r></div>
<div><span style="font-family:'courier new',monospace">### instala pacote se ainda não instalado...</span><br></div><div><font face="courier new, monospace">if (!"ggmap" %in% installed.packages()) {install.packages("ggmap", dep=T)}</font></div>
<div><font face="courier new, monospace">require(ggmap)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">locais <- c("Avenida Marcelino Pires, 3600,  Dourados, MS",</font></div>
<div><font face="courier new, monospace">            "Av. Marcelino Pires, 5488,      Dourados, MS",</font></div><div><font face="courier new, monospace">            "Avenida Marcelino Pires, NA,    Dourados, MS",</font></div>
<div><font face="courier new, monospace">            "Av. Marcelinho Ozires, 3000,    Dourados, MS",</font></div><div><font face="courier new, monospace">            "Rua Reinaldo Bianchi, 1650,     Dourados, MS",</font></div>
<div><font face="courier new, monospace">            "Rua Nononon Nonon, 2340,        Dourados, MS")</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">geocode(locais) </font></div>
<div><span style="font-family:'courier new',monospace">### observar as coordenadas retornadas para locais!</span><br></div><div><span style="font-family:'courier new',monospace">### somente as duas primeira linhas correspondem à posição 'real' dos logradouros </span><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### para obter informação sobre a coordenada use output="more"</font></div><div><font face="courier new, monospace">geocode(locais, output="more")</font></div>
<div><font face="courier new, monospace">geocode(locais, output="more")[c(1:4,10)] ### principais informações </font><span style="font-family:'courier new',monospace">(ver type e loctype)</span></div><div>
<span style="font-family:'courier new',monospace">### </code></span><br></div><div><br></div><div><font face="arial, helvetica, sans-serif">No segundo caso, parece que o pacote não foi instalado (usar </font><font face="courier new, monospace">install.packages()</font><font face="arial, helvetica, sans-serif"> antes de </font><font face="courier new, monospace">require()</font><font face="arial, helvetica, sans-serif">).</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### <code r></font></div><div><font face="courier new, monospace">### instala pacote se ainda não instalado...</font></div>
<div><font face="courier new, monospace">if (!"plotGoogleMaps" %in% installed.packages()) {install.packages("plotGoogleMaps", dep=T)}</font></div><div><font face="courier new, monospace">require(plotGoogleMaps)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">ll <- geocode(locais)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">{</font></div>
<div><font face="courier new, monospace">          dat <- data.frame(ll, locais)</font></div><div><font face="courier new, monospace">          coordinates(dat)=~lon+lat</font></div><div><font face="courier new, monospace">          proj4string(dat) <- CRS("+proj=longlat +datum=WGS84")</font></div>
<div><font face="courier new, monospace">}</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">plotGoogleMaps(dat) ### abrirá 'dat.htm' no browser padrão!!!</font></div>
<div><font face="courier new, monospace">### </code></font></div><div><font face="arial, helvetica, sans-serif"><br></font></div><div><font face="arial, helvetica, sans-serif">No terceiro caso, parece haver erros na linha de comando (cooimg).</font></div>
<div><font face="arial, helvetica, sans-serif"> </font></div><div><font face="courier new, monospace"><span style="color:rgb(0,0,0);font-size:13.333333969116211px">cooimg <- GetMap(center=c(<span style="background-color:rgb(255,0,0)">9lon9</span>=ll[2,4], <span style="background-color:rgb(255,0,0)">9lat9</span>=ll[2,3]), zoom=16,maptype="roadmap", destfile="marimg.png", format</span><span style="color:rgb(0,0,0);font-size:13.333333969116211px">="png32")</span></font></div>
<div><font face="courier new, monospace"><span style="color:rgb(0,0,0);font-size:13.333333969116211px"><br></span></font></div><div><span style="color:rgb(0,0,0);font-size:13.333333969116211px"><font face="arial, helvetica, sans-serif">Segue um exemplo reproduzível desdobrado dos exemplos anteriores...</font></span></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### <code r></font></div><div><font face="courier new, monospace">### instala pacote se ainda não instalado...</font></div>
<div><font face="courier new, monospace">if (!"RgoogleMaps" %in% installed.packages()) {install.packages("RgoogleMaps", dep=T)}</font></div><div><font face="courier new, monospace">require(RgoogleMaps)</font></div>
<div><font face="courier new, monospace">map <- GetMap(center=c(-22.22258, -54.76349), zoom=6, maptype="roadmap", destfile="tmp.png", format="png32")</font></div><div><font face="courier new, monospace">getwd(); dir(getwd(), pattern=".png$") ### lista arquivos .png salvos!</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">PlotOnStaticMap(map) ### plota figura</font></div><div><span style="font-family:'courier new',monospace">### </code></span><br>
</div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>

Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br><div class="gmail_quote"><br></div></div></div>