使用 R 中的传单库绘制跨越国际日期变更线的路线

我有兴趣使用 R 的传单库绘制从滑铁卢到台湾的路线。路线的坐标是使用 geosphere 中的 gcIntermediate 函数获得的。然而，该路线涉及穿越国际日期变更线，因此该路线在地图边缘被切断，并在顶部与直线连接。

我得到的情节： 错误的地图

我想要的情节： 理想地图

使用谷歌地图有可能解决这个问题，但是有没有办法使用传单来解决这个问题？我应该如何修改下面的代码以获得理想的路线？谢谢你！

Code:

library(dplyr)
library(leaflet)
library(geosphere)

# Source
latWaterloo <- 43.46687 
lngWaterloo <- -80.52464

# Destination
latTaiwan <- 23.5983
lngTaiwan <- 120.8354


m <- leaflet() %>% addTiles()
m <- addCircleMarkers(m, lng=c(lngWaterloo, lngTaiwan) , lat=c(latWaterloo, latTaiwan), popup=c("Waterloo","Taiwan"), radius=5, opacity=0.5)
geo_lines <- gcIntermediate(c(lngWaterloo, latWaterloo), c(lngTaiwan, latTaiwan), n=100, addStartEnd=T, sp=T, breakAtDateLine=F)
m <- addPolylines(m, data=geo_lines, color="blue")
m

m <- leaflet() %>% addTiles()
m

正如让-克洛德在评论中所说，你手绘的路径比由gcIntermediate。要获得正确的路径，只需调用gcIntermediate with breakAtDateLine=TRUE:

geo_lines <- gcIntermediate(c(lngWaterloo, latWaterloo), c(lngTaiwan, latTaiwan), n=100, addStartEnd=TRUE, sp=TRUE, breakAtDateLine=TRUE)
m <- addPolylines(m, data=geo_lines, color="blue")
m

产生

不知道有没有办法告诉leaflet复制穿过日期变更线的路径部分，使其正好到达绘图的边缘。