<div dir="ltr">Caro Luís Gustavo,<div><br></div><div>Muito obrigado, resolvido.</div><div><br></div><div>Tem mais dois procedimentos que utilizam funções do Google no mesmo tutorial que também apresentam problemas, a primeira é para visualizar dados georreferenciados no google Maps adicionando um layer, ele se refere a um pacote chamado plotGoogleMaps que o R não consegue instalar:</div>
<div><br></div><div>require(plotGoogleMaps) </div><div>dat <- data.frame(Tipo=ltipo, Logradouro=lnome, Numero=enum) </div><div>llxydf <- SpatialPointsDataFrame(llxy, dat) </div><div>plotGoogleMaps(llxy)<br></div><div>
<br></div><div>resulta no erro:</div><div><div><font color="#ff0000">> require(plotGoogleMaps)</font></div><div><font color="#ff0000">Carregando pacotes exigidos: plotGoogleMaps</font></div><div><font color="#ff0000">Warning message:</font></div>
<div><font color="#ff0000">In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE, :</font></div><div><font color="#ff0000"> there is no package called ‘plotGoogleMaps’</font></div></div><div>
<br></div><div>O segundo procedimento é para obter uma imagem do googleMaps e vizualizá-la usando o R:</div><div><br></div><div>require(RgoogleMaps)</div><div>cooimg <- GetMap(center=c(9lon9=ll[2,4], 9lat9=ll[2,3]), zoom=16,maptype="roadmap", destfile="marimg.png", format="png32")<br>
</div><div><br></div><div>resulta no seguinte erro:</div><div><div><font color="#ff0000">[1] "<a href="http://maps.google.com/maps/api/staticmap?center=&zoom=16&size=640x640&maptype=roadmap&format=png32&sensor=true">http://maps.google.com/maps/api/staticmap?center=&zoom=16&size=640x640&maptype=roadmap&format=png32&sensor=true</a>"</font></div>
<div><font color="#ff0000">Error in readChar(con, 5L, useBytes = TRUE) : cannot open the connection</font></div><div><font color="#ff0000">In addition: Warning message:</font></div><div><font color="#ff0000">In readChar(con, 5L, useBytes = TRUE) :</font></div>
<div><font color="#ff0000"> cannot open compressed file 'marimg.png.rda', probable reason 'No such file or directory'</font></div></div><div><font color="#ff0000"><br></font></div><div><font color="#000000">Se tiver alguma pista de como resolver agradeço mais uma vez,</font></div>
<div><br></div><div class="gmail_extra"><br clear="all"><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 13 de fevereiro de 2014 15:05, Luís Gustavo <span dir="ltr"><<a href="mailto:lgsilvaesilva@gmail.com" target="_blank">lgsilvaesilva@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>install.packages("ggmap")<br></div>require(ggmap)<br><div>?geocode</div><div><br></div><div><div>require(ggmap)</div><div class=""><div>ltipo <- c("av", "rua", NA)</div>
<div>lnome <- c("Brasil", "joubert", "prefeitura municipal")</div>
<div>enum <- c(3500, 100, NA)</div></div><div>end <- paste(ltipo, lnome, enum, "Maringa", "PR", "BR", sep=",") </div><div>geocode(end)</div></div></div><div class="gmail_extra">
<br>
<br><div class="gmail_quote">Em 13 de fevereiro de 2014 16:01, Helder Gramacho <span dir="ltr"><<a href="mailto:agrohelder@gmail.com" target="_blank">agrohelder@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><div class="h5">
<div dir="ltr">Bom dia,<div><br></div><div>Estou tentando conhecer um pouco mais do R por meio da publicação "Introdução à análise de dados espacialmente referenciados" do Elias Teixeira Krainski, nela existe uma etapa na qual é possível utilizar uma API do google.maps para fazer o georreferenciamento de endereços, ou seja, obter a latitude e longitude desses endereços o código é o que segue logo abaixo:</div>
<div><br></div><div><div>require(sp)</div><div>ltipo <- c("av", "rua", NA)</div><div>lnome <- c("Brasil", "joubert", "prefeitura municipal")</div><div>enum <- c(3500, 100, NA)</div>
<div><br></div><div>fGetLatLonLog <- function(tipo, nome, num, mun, uf, pais) { </div><div>end <- paste(tipo, nome, num, mun, uf, pais, sep="+") </div><div>end <- gsub(" ", "+", end, fixed=TRUE) </div>
<div>end <- gsub("NA", "", end, fixed=TRUE) </div><div>end <- gsub("++", "+", end, fixed=TRUE) </div><div>end <- paste('<a href="http://maps.google.com/maps/geo?q=" target="_blank">http://maps.google.com/maps/geo?q=</a>',end,'&output=csv&sensor=true_or_false&key=abcdefg',sep="")</div>
<div>end <- sapply(end, readLines, warn=FALSE) </div><div>end <- t(sapply(strsplit(end, ","), as.numeric)) </div><div>colnames(end) <- c("Status", "Acuracia", "Latitude", "Longitude") </div>
<div>rownames(end) <- 1:nrow(end) </div><div>return(as.data.frame(end))}</div><div><br></div><div>ll=fGetLatLonLog(ltipo, lnome, enum, "Maringa", "PR", "BR") </div><div>ll</div><div><br></div>
<div>Mas quando executo a função aparece o seguinte erro: <br></div><div><div><br></div><div><div>Error in file(con, "r") : cannot open the connection In addition: Warning message:</div><div>In file(con, "r") : cannot open: HTTP status was '403 Forbidden'</div>
</div></div><div><br></div><div>Parece que o Google não permite realizar a conexão...</div><div>Será que alguém sabe como me ajudar.</div><div><br></div><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>
</div></div>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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.<span class="HOEnZb"><font color="#888888"><br></font></span></blockquote>
</div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><div><br></div>-- <br>
Luís Gustavo Silva e Silva<br>
</font></span></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>