[R-br] API de Georreferenciamento do Google

[Helder Gramacho]

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 em gmail.com <agrohelder em hotmail.com>*
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140213/3e8ca7a7/attachment.html>