[R-br] Coordenadas a partir do CEP

[Sérgio Henrique almeida da silva ju]

Prezados

Estou rodando o código abaixo para gerar as coordenadas a partir de um CEP,
porém esta dando a seguinte mensagem de erro:

Erro: símbolo inesperado in:
"url_lat_lon <- paste(sprintf("<a href=
"http"

O que devo alterar para o código rodar?

Abraços
require(XML)
coordenadas<- function(cep) {
url_lat_lon <- paste(sprintf("<a href=
"http://maps.google.com/maps/api/geocode/xml?address=%s">
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)

-- 
Sérgio Henrique Almeida da Silva Junior
Doutorando em Epidemiologia em Saúde Pública
Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
http://lattes.cnpq.br/1611345552843383
Tel: (21) 68463637
http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130723/1025ca47/attachment.html>