r - Googleway R 替代路线

Question

我正在使用 google_directions() 函数生成两个坐标之间的驾驶路线，这些路线是通过单击传单 map 中的不同点生成的。我想显示一些可能的路线，而不是仅显示一条。设置 Alternatives = 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")

Answer 1

我找到了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")