O link está errado apontando para uma formatação html, tente assim:

library(XML)
h <- xmlTreeParse(readLines(sprintf("http://maps.googleapis.com/maps/api/geocode/xml?address=%s&sensor=false", "80240-000")), useInternalNodes = TRUE)
sapply(sprintf("//geometry//location//%s", c("lat", "lng")), xpathApply, doc = h, fun = xmlValue)


2013/7/23 Sérgio Henrique almeida da silva ju <sergio.edfisica@gmail.com>
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=
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

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.



--
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O