[R-br] Retirar coordenadas de cidade do google maps com R

[Augusto Ribas]

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

Site Pessoal: http://augustoribas.heliohost.org
Lattes: http://lattes.cnpq.br/7355685961127056
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20120502/53cac149/attachment.html>