Я занимаюсь разработкой приложения с использованием Shiny и буклета из R. И мне нужно составить маршрут получения с помощью REST API.
Я пытаюсь получить полилинии, используя это:
query <- paste0("&waypoint0=geo!",
lat_usuario,
",",
long_usuario,
"&waypoint1=geo!",
lat_of,
",",
long_of,
"&departure=", fecha,
"&mode=fastest;car;traffic:enabled")
paste0("https://route.api.here.com/routing/7.2/calculateroute.json",
"?app_id=", App_id, "&app_code=", App_code, query) %>%
RCurl::getURL(verbose = FALSE) %>%
RJSONIO::fromJSON() %>%
.[["response"]] %>%
.[["route"]] %>%
.[[1]] %>%
.[["leg"]] %>%
.[[1]] %>%
.[["maneuver"]] %>%
sapply("[[", "position") %>%
return()
Но, когда я представляю, используя этот код:
leafletProxy("mapa", data = values$tabla) %>%
clearShapes() %>%
addPolylines(pol[2,], pol[1,], stroke=0.2)
Я понимаю, что полилинии не на улице. Как показано на рисунке:
Как мне проложить маршрут по улицам?