Achei uma função no Stackoverflow que resolveu o serviço:<br>So que ele pede o pacote RCurl, que nao entendi direito mas não tem binario para windows. E precisa de um esquema que não faço a vaga ideia do que faz<br>para instalar o pacote RCurl.<br>
Mas segue ai caso seja util pra alguem, funcionou blz aqui.<br><br>install.packages("RJSONIO")<br>library(RJSONIO)<br><br>source("<a href="http://bioconductor.org/biocLite.R">http://bioconductor.org/biocLite.R</a>")<br>
biocLite("RCurl")<br>library(RCurl)<br><br>construct.geocode.url <- function(address, return.call = "json", sensor = "false") {<br>  root <- "<a href="http://maps.google.com/maps/api/geocode/">http://maps.google.com/maps/api/geocode/</a>"<br>
  u <- paste(root, return.call, "?address=", address, "&sensor=", sensor, sep = "")<br>  return(URLencode(u))<br>}<br><br>gGeoCode <- function(address) {<br>  u <- construct.geocode.url(address)<br>
  doc <- getURL(u)<br>  x <- fromJSON(doc,simplify = FALSE)<br>  lat <- x$results[[1]]$geometry$location$lat<br>  lng <- x$results[[1]]$geometry$location$lng<br>  return(c(lat, lng))<br>}<br><br>gGeoCode("Campo Grande MS")<br>
<br><div class="gmail_quote">Em 2 de maio de 2012 09:31, Augusto Ribas <span dir="ltr"><<a href="mailto:ribas.aca@gmail.com" target="_blank">ribas.aca@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Opa a algum tempo postaram uma função aqui pra calcula a distancia entre cidades pelo googe maps.<br>Eu gostaria de pegar a coordenada da cidade. Mas eu não acho onde esta essa informação na pagina do google depois que abro ela no R<br>

E também nao sei procurar pra falar a verdade, pq fica gigante depois que le a pagina.<br>Alguém pode me dar uma luz?<br><br>#Função anteriormente postada<br>distancia <- function(cidade1, uf1, cidade2, uf2){<br>    link <- paste( "<a href="http://maps.google.com/maps?saddr=" target="_blank">http://maps.google.com/maps?saddr=</a>",  cidade1,  "+-+",  uf1,  ",+Brasil&daddr=",  cidade2,  "+-+",  uf2,  ",+Brasil&hl=pt-BR&ie=UTF8",  sep="")<br>

    link <- iconv(link, 'latin1', 'UTF-8')<br>    Encoding(link) <- 'bytes'<br><br>    pagina <- readLines(url(link))<br><br>    linha <- grep('<div class="altroute-rcol altroute-info"> <span>', pagina)<br>

    distancia <- pagina[linha]<br>    distancia <- strsplit(distancia, '<div class="altroute-rcol altroute-info"> <span>')[[1]][2]<br>    distancia <- strsplit(distancia, '</span>')[[1]][1]<br>

    return(list(distancia = distancia, link=link))<br>}<br><br>distancia("Dourados", "MS", "Campo.Grande", "MS")<br>distancia("Brasília", "DF", "Goiânia", "GO")<br>

distancia("Brasília", "DF", "Natal", "RN")<br>distancia("Brasília", "DF", "Florianópolis", "SC")<br>distancia("Brasília", "DF", "Porto.Alegre", "RS")<br>

<br><br>#O que eu gostaria por exemplo para a cidade de Dourados MS<br>uf1<-c("MS")<br>cidade1<-c("Dourados")<br>link<-paste( "<a href="http://maps.google.com/maps?saddr=%20" target="_blank">http://maps.google.com/maps?saddr=%20</a>",cidade1,"+-+",uf1,",+Brasil&hl=pt-BR&ie=UTF8",sep="")<br>

Encoding(link) <- 'bytes'<br>pagina <- readLines(url(link))<br><br>#é saber onde em pagina esta as coordenadas da cidade.<br>#que linha olhar, se é que ela esta nessa pagina, e colocar como o resultado acima algo tipo<br>

#coordenadas são tal<span class="HOEnZb"><font color="#888888"><br clear="all"><br>-- <br><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://augustoribas.heliohost.org" target="_blank">http://augustoribas.heliohost.org</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div><br>
</font></span></blockquote></div><br><br clear="all"><br>-- <br><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://augustoribas.heliohost.org" target="_blank">http://augustoribas.heliohost.org</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div><br>