<div dir="ltr">Olá Éder, boa tarde!<div><br></div><div>Resolvido, muito obrigado mais uma vez!</div><div><br></div><div><br></div><div class="gmail_extra"><div><div dir="ltr"><div style="text-align:center"><font size="1">Hélder Santos</font></div>
<div style="text-align:center"><i style="font-size:x-small;color:rgb(51,51,255)"><div style="display:inline!important"><i><a href="mailto:agrohelder@hotmail.com" target="_blank">agrohelder@gmail.com</a></i></div></i><br></div>
<div style="text-align:center"><br></div></div></div>
<br><br><div class="gmail_quote">Em 14 de fevereiro de 2014 20:55, Éder Comunello <span dir="ltr"><<a href="mailto:comunello.eder@gmail.com" target="_blank">comunello.eder@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<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 class="">
<div><font face="arial, helvetica, sans-serif"> </font></div><div><font face="courier new, monospace"><span style="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="font-size:13.333333969116211px">="png32")</span></font></div>
<div><font face="courier new, monospace"><span style="font-size:13.333333969116211px"><br></span></font></div></div><div><span style="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>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div></div>