<div dir="ltr">O link está errado apontando para uma formatação html, tente assim:<div><br></div><div style>library(XML)</div><div><div>h <- xmlTreeParse(readLines(sprintf("<a href="http://maps.googleapis.com/maps/api/geocode/xml?address=%s&sensor=false">http://maps.googleapis.com/maps/api/geocode/xml?address=%s&sensor=false</a>", "80240-000")), useInternalNodes = TRUE)</div>

<div>sapply(sprintf("//geometry//location//%s", c("lat", "lng")), xpathApply, doc = h, fun = xmlValue)</div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/7/23 Sérgio Henrique almeida da silva ju <span dir="ltr"><<a href="mailto:sergio.edfisica@gmail.com" target="_blank">sergio.edfisica@gmail.com</a>></span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><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" target="_blank">http://maps.google.com/maps/api/geocode/xml?address=%s</a>"><a href="http://maps.google.com/maps/api/geocode/xml?address=%s," target="_blank">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><span class="HOEnZb"><font color="#888888"><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>
</font></span></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>

Henrique Dallazuanna<br>Curitiba-Paraná-Brasil<br>25° 25' 40" S 49° 16' 22" O
</div>