[R-br] API de Georreferenciamento do Google

[Luís Gustavo]

install.packages("ggmap")
require(ggmap)
?geocode

require(ggmap)
ltipo <- c("av", "rua", NA)
lnome <- c("Brasil", "joubert", "prefeitura municipal")
enum <- c(3500, 100, NA)
end <- paste(ltipo, lnome, enum, "Maringa", "PR", "BR", sep=",")
geocode(end)


Em 13 de fevereiro de 2014 16:01, Helder Gramacho
<agrohelder em gmail.com>escreveu:

> 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>*
>
>
> _______________________________________________
> R-br mailing list
> R-br em 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.
>



-- 
Luís Gustavo Silva e Silva
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140213/fde1d322/attachment.html>