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 <- 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.