Googleway R Alternative路线

Posted 2021-05-03

我正在使用google_directions（）函数生成两个坐标之间的行车路线，这些坐标是在单张地图中的不同点点击时生成的。我想显示一些可能的路线，而不是一个。设置替代品= TRUE似乎不适合我。我试过多个坐标。

    key <- "my_key"
    #lat1,lon1 generated on first click. lat2,lon2 generated on second click.
    df <- google_directions(origin = c(lat1,lon1),
                            destination = c(lat2,lon2),
                            key = key,
                            mode = "driving",
                            simplify = TRUE,
                            alternatives = TRUE)
    pl <- decode_pl(direction_polyline(df))
    leaflet() %>% addTiles() %>% addPolylines(data = pl, lng = ~lon, lat = ~lat,group = "route")

答案

我找到了issue and have uploaded a fix

简而言之，正如您所发现的那样，alternatives论证没有被正确使用。

如果您安装了最新的开发版本，这应该适合您

devtools::install_github("SymbolixAU/googleway")

为了显示它的工作原理，这个例子将生成两个路由

library(googleway)

set_key("api_key")

df <- google_directions(origin = "Melbourne Airport, Australia",
                        destination = "Portsea, Melbourne, Australia",
                        mode = "driving",
                        alternatives = TRUE)


df_routes <- data.frame(polyline = direction_polyline(df)) 

set_key("map_key", api = "map")

google_map() %>%
  add_polylines(data = df_routes, polyline = "polyline")