Erro: símbolo inesperado in:

"url_lat_lon <- paste(sprintf("<a href=

"http"

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