如何从REST API获取路线折线

Question

我正在使用R中的Shiny和Leaflet开发应用程序。我需要绘制通过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)

我知道折线不在街上。如图所示：

我该如何在街道上绘制路线？

Answer 1

自己解决。

该键在查询中包含“＆routeAttributes = sh”。然后，我们将收到路线的形状（以便绘制它们）。