Я пытаюсь ввести необязательные параметры с помощью пакета R ggmap, чтобы получить время в пути с учетом трафика, однако я не смог понять, как это сделать.
Например, следующий код дает 1844 секунды
library(ggmap)
tripinfo <- mapdist('Chandler', 'Phoenix',
mode = 'driving')
tripinfo$seconds
Это идентично подключению следующего URL-адреса API непосредственно в веб-браузер (обратите внимание, что это не будет выполняться напрямую, поскольку я заменил свой настоящий API-ключ на «apikey»)
https://maps.googleapis.com/maps/api/distancematrix/json?origins=Chandler&destinations=Phoenix&mode=driving&language=en-EN&key=apikey
Однако, если я попытаюсь добавить дополнительные параметры, которые должны давать мне время в пути, включая трафик, с помощью функции ggmap mapdist, я все равно получу те же 1844 секунды:
tripinfo <- mapdist('Chandler', 'Phoenix',
mode = 'driving', traffic_model='best_guess', departure_time='now')
И наоборот, если я ввожу дополнительные параметры непосредственно в URL-адрес, я получаю значение «duration_in_traffic», равное 1700 секундам (это информация, которую я хочу). Вот этот URL:
https://maps.googleapis.com/maps/api/distancematrix/json?origins=Chandler&destinations=Phoenix&mode=driving&language=en-EN&key=apikey&traffic_mode=best_guess&departure_time=now
Есть идеи, как добавить необязательные параметры в функцию ggmap mapdist (или, возможно, есть другой способ сделать это полностью, но все еще с использованием R)?