<div dir="ltr">Prezados<div><br></div><div>Estou rodando o código abaixo para gerar as coordenadas a partir de um CEP, porém esta dando a seguinte mensagem de erro:</div><div><br></div><div><div>Erro: símbolo inesperado in:</div>
<div>"url_lat_lon <- paste(sprintf("<a href=</div><div>"http"</div></div><div><br></div><div>O que devo alterar para o código rodar?</div><div><br></div><div>Abraços </div><div><div>require(XML)</div>
<div>coordenadas<- function(cep) {</div><div>url_lat_lon <- paste(sprintf("<a href=</div><div>"<a href="http://maps.google.com/maps/api/geocode/xml?address=%s">http://maps.google.com/maps/api/geocode/xml?address=%s</a>"><a href="http://maps.google.com/maps/api/geocode/xml?address=%s,">http://maps.google.com/maps/api/geocode/xml?address=%s,</a>", </div>
<div>cep),"%20Brasil&sensor=false", sep="")</div><div>lat_lon=xmlApply(xmlRoot(xmlTreeParse(</div><div>readLines(url_lat_lon)))[['result']][['geometry']][['location']], "[[", 1)</div>
<div>return(lat_lon)</div><div><br></div>-- <br><div dir="ltr">Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br><a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a> <br>
Tel: (21) 68463637<br><div><a href="http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro" target="_blank">http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro</a><br></div></div>
</div></div>