r - Googleway R 替代路线

Question

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

我发现了问题并上传了修复程序

简而言之，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")