如何从REST API获取路径折线

Posted 2021-05-03

我正在使用Riny中的Shiny和leaflet开发一个App。我需要使用REST API绘制路径获取。

我尝试使用以下方法获取Polylines：

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)

我得到折线不在街道内。如图所示：

如何在街道内划出路线？

答案

由我自己解决。

关键是在查询中包含“＆route Attributes = sh”。然后，我们收到路线的形状（能够绘制它们）。