
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD>

<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">

<META content="MSHTML 6.00.2900.3429" name=GENERATOR>

<STYLE></STYLE>

</HEAD>

<BODY bgColor=#ffffff>

<DIV align=justify><FONT face=Arial color=#0000ff>Rodei este script, e deu em 

Juíz de Fora, MG. Rodei o meu cep 01423001, em São Paulo-SP deu em Lima no Perú. 

Quero saber se existe algum jeito de entrar ou está furado o 

programa.</FONT></DIV>

<BLOCKQUOTE 

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

  <DIV style="FONT: 10pt arial">Prezado Thiago,<BR><BR>Se não estou enganado 

  você consegue as coordendas a partir do CEP, da seguinte 

  forma:<BR><BR><BR><B>require(XML)<BR><BR>coordenadas<- function(cep) 

  {<BR>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,</A>", 

  cep),"%20Brasil&sensor=false", 

  sep="")<BR>lat_lon=xmlApply(xmlRoot(xmlTreeParse( 

  readLines(url_lat_lon)))[['result']][['geometry']][['location']], "[[", 

  1)<BR>return(lat_lon)<BR>}<BR><BR>cep=36026300<BR>coordenadas(cep)<BR><BR>Obs.: 

  Existe posts passados abordando estes assunto, lembro que salvei esse script 

  em alguns desses posts, porém não<BR>me lembro exatamente quem postou, 

  portanto fica as minhas desculpas pela a falta de 

referência.<BR></B><BR></DIV></BLOCKQUOTE></BODY></HTML>