<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=">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>