Coordenadas a partir do CEP

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

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= "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
_______________________________________________ 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
participantes (2)
-
Henrique Dallazuanna
-
Sérgio Henrique almeida da silva ju