[R-br] obtenção de lat long para uma série de CEPs

[Mauricio Cardeal]

Recentemente foi postado na lista uma solução para a obtenção de lat long a
partir de um cep:

require(XML)

coordenadas<- function(cep) {
 url_lat_lon <- paste(sprintf("
http://maps.google.com/maps/api/geocode/xml?address=%s,",
cep),"%20Brasil&sensor=false", sep="")
 lat_lon=xmlApply(xmlRoot(xmlTreeParse(
readLines(url_lat_lon)))[['result']][['geometry']][['location']], "[[", 1)
 return(lat_lon)
 }

cep=40110010
coordenadas(cep)

> coordenadas(cep)
$lat
-12.9896162

$lng
-38.4922117

Ficou excelente. Mas fiquei imaginando se ao invés de apenas 1 cep eu
tivesse uma série, por exemplo:

ceps <- c(40110010,01317000,17120000)

Como modificaria a função acima rotina para ter algo do tipo (em um data
frame), sem precisar rodar 1 a 1 cada cep:

cep             lat        long
40110010  -12.98    -38.49
01317000  -25.29    -57.62
17120000  -22.52    -49.13

Valeu
-- 
Mauricio Cardeal
UFBA
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121003/6c73f3d8/attachment.html>