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=">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">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<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>