Exemplo de georeferenciamento com a API do R
(sugestoes de XML experts are welcome)
getll <- function(address) {
u <- paste('http://maps.googleapis.com/',
'maps/api/geocode/xml?address=',
address, '&sensor=true', sep='')
tr <- htmlTreeParse(readLines(u),
asText=TRUE, useInternalNodes=TRUE)
ll <- xmlValue(getNodeSet(doc=tr, path='//location')[[1]])
n <- nchar(ll) ### problema em off diagonal: (-,+) ou (+,-)
as.numeric(c(substr(ll, 1, n/2), ### precisa melhorar
substr(ll, n/2+1, n))) ### esta parte
}
d <- data.frame(
numero=c(1500, 100),
logradouro=c('Avenida Brasil', 'Rua Peter Lund'),
cidade=rep('Rio de Janeiro',2))
d
require(XML)
t(sapply(apply(d, 1, paste, collapse='+'), function(x)
getll(gsub(' ', '+', x, fixed=TRUE))))
_______________________________________________
R-br mailing list
[email protected]
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.
