Я пытаюсь получить расстояние между двумя точками с заданными параметрами lat/lon. Я могу вручную разместить их на карте Google и получить дистанцию, но я хочу сделать все это программно.
Я думаю, что JavaScript - это язык, на котором нужно идти. Но я не знаю JavaScript, и я довольно хорошо знаком с R. Я бы предпочел сделать это в R, так как я делаю весь анализ данных в R.
Я ищу расстояние по дороге, а не расстояние между воротами. После нескольких часов попыток я написал следующую функцию в R (This и этот помог). У вас есть лучший способ получить расстояние либо внутри этой функции, либо что-то очень простое?
library(XML)
latlon2ft <- function(origin,destination)
{
xml.url <- paste0('http://maps.googleapis.com/maps/api/distancematrix/xml?origins=',origin,'&destinations=',destination,'&mode=driving&sensor=false')
xmlfile <- xmlTreeParse(xml.url)
xmltop = xmlRoot(xmlfile)
distance <- xmltop[['row']][[1]][5][1][['distance']][['value']][[1]]
distance <- as.numeric(unclass(distance)[['value']])
ft <- distance*3.28084 # FROM METER TO FEET
return(ft)
}
latlon2ft(origin='37.193489,-121.07395',destination='37.151616,-121.046586')
РЕЗУЛЬТАТ = 17224.41