[R-br] API de Georreferenciamento do Google

[Helder Gramacho]

Caro Luís Gustavo,

Muito obrigado, resolvido.

Tem mais dois procedimentos que utilizam funções do Google no mesmo
tutorial que também apresentam problemas, a primeira é para visualizar
dados georreferenciados no google Maps adicionando um layer, ele se refere
a um pacote chamado plotGoogleMaps que o R não consegue instalar:

require(plotGoogleMaps)
dat <- data.frame(Tipo=ltipo, Logradouro=lnome, Numero=enum)
llxydf <- SpatialPointsDataFrame(llxy, dat)
plotGoogleMaps(llxy)

resulta no erro:
> require(plotGoogleMaps)
Carregando pacotes exigidos: plotGoogleMaps
Warning message:
In library(package, lib.loc = lib.loc, character.only = TRUE,
logical.return = TRUE,  :
  there is no package called 'plotGoogleMaps'

O segundo procedimento é para obter uma imagem do googleMaps e vizualizá-la
usando o R:

require(RgoogleMaps)
cooimg <- GetMap(center=c(9lon9=ll[2,4], 9lat9=ll[2,3]),
zoom=16,maptype="roadmap", destfile="marimg.png", format="png32")

resulta no seguinte erro:
[1] "
http://maps.google.com/maps/api/staticmap?center=&zoom=16&size=640x640&maptype=roadmap&format=png32&sensor=true
"
Error in readChar(con, 5L, useBytes = TRUE) : cannot open the connection
In addition: Warning message:
In readChar(con, 5L, useBytes = TRUE) :
  cannot open compressed file 'marimg.png.rda', probable reason 'No such
file or directory'

Se tiver alguma pista de como resolver agradeço mais uma vez,


Hélder Santos
*agrohelder em gmail.com <agrohelder em hotmail.com>*



Em 13 de fevereiro de 2014 15:05, Luís Gustavo
<lgsilvaesilva em gmail.com>escreveu:

> 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
>
> _______________________________________________
> 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140213/969d4502/attachment.html>