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




Em 13 de fevereiro de 2014 15:05, Luís Gustavo <lgsilvaesilva@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@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


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



--
Luís Gustavo Silva e Silva

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