Bom dia,

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:

require(sp)

ltipo <- c("av", "rua", NA)

lnome <- c("Brasil", "joubert", "prefeitura municipal")

enum <- c(3500, 100, NA)

fGetLatLonLog <- function(tipo, nome, num, mun, uf, pais) { 

end <- paste(tipo, nome, num, mun, uf, pais, sep="+") 

end <- gsub(" ", "+", end, fixed=TRUE) 

end <- gsub("NA", "", end, fixed=TRUE) 

end <- gsub("++", "+", end, fixed=TRUE) 

end <- paste('http://maps.google.com/maps/geo?q=',end,'&output=csv&sensor=true_or_false&key=abcdefg',sep="")

end <- sapply(end, readLines, warn=FALSE) 

end <- t(sapply(strsplit(end, ","), as.numeric)) 

colnames(end) <- c("Status", "Acuracia", "Latitude", "Longitude") 

rownames(end) <- 1:nrow(end) 

return(as.data.frame(end))}

ll=fGetLatLonLog(ltipo, lnome, enum, "Maringa", "PR", "BR") 

ll

Mas quando executo a função aparece o seguinte erro: 

Error in file(con, "r") : cannot open the connection In addition: Warning message:

In file(con, "r") : cannot open: HTTP status was '403 Forbidden'

Parece que o Google não permite realizar a conexão...

Será que alguém sabe como me ajudar.

Hélder Santos

agrohelder@gmail.com

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.