Em 2 de maio de 2012 09:31, Augusto Ribas
<ribas.aca@gmail.com> escreveu:
Opa a algum tempo postaram uma função aqui pra calcula a distancia entre cidades pelo googe maps.
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
E também nao sei procurar pra falar a verdade, pq fica gigante depois que le a pagina.
Alguém pode me dar uma luz?
#Função anteriormente postada
distancia <- function(cidade1, uf1, cidade2, uf2){
link <- paste( "http://maps.google.com/maps?saddr=", cidade1, "+-+", uf1, ",+Brasil&daddr=", cidade2, "+-+", uf2, ",+Brasil&hl=pt-BR&ie=UTF8", sep="")
link <- iconv(link, 'latin1', 'UTF-8')
Encoding(link) <- 'bytes'
pagina <- readLines(url(link))
linha <- grep('<div class="altroute-rcol altroute-info"> <span>', pagina)
distancia <- pagina[linha]
distancia <- strsplit(distancia, '<div class="altroute-rcol altroute-info"> <span>')[[1]][2]
distancia <- strsplit(distancia, '</span>')[[1]][1]
return(list(distancia = distancia, link=link))
}
distancia("Dourados", "MS", "Campo.Grande", "MS")
distancia("Brasília", "DF", "Goiânia", "GO")
distancia("Brasília", "DF", "Natal", "RN")
distancia("Brasília", "DF", "Florianópolis", "SC")
distancia("Brasília", "DF", "Porto.Alegre", "RS")
#O que eu gostaria por exemplo para a cidade de Dourados MS
uf1<-c("MS")
cidade1<-c("Dourados")
link<-paste( "http://maps.google.com/maps?saddr=%20",cidade1,"+-+",uf1,",+Brasil&hl=pt-BR&ie=UTF8",sep="")
Encoding(link) <- 'bytes'
pagina <- readLines(url(link))
#é saber onde em pagina esta as coordenadas da cidade.
#que linha olhar, se é que ela esta nessa pagina, e colocar como o resultado acima algo tipo
#coordenadas são tal
--
Grato
Augusto C. A. Ribas