<div dir="ltr"><div>install.packages("ggmap")<br></div>require(ggmap)<br><div>?geocode</div><div><br></div><div><div>require(ggmap)</div><div>ltipo <- c("av", "rua", NA)</div><div>lnome <- c("Brasil", "joubert", "prefeitura municipal")</div>

<div>enum <- c(3500, 100, NA)</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 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>_______________________________________________<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><br clear="all"><div><br></div>-- <br>

Luís Gustavo Silva e Silva<br>
</div>