我有一张传单地图,我在上面绘制了一些多边形。我正在尝试使用
rmapshaper::ms_simplify()
来减少地图的加载时间。
polygons_ll <- (
spTransform(polygons, CRS("+proj=longlat +datum=WGS84"))
)
polygons_ll <- ms_simplify(polygons_ll)
这一切都在 R闪亮应用程序中,遇到警告后不会运行:
Warning in sp::proj4string(sp) :
CRS object has comment, which is lost in output
该应用程序在添加
ms_simplify()
之前即可运行。
经过一些研究和反复试验后:
rgdal::set_rgdal_show_exportToProj4_warnings(FALSE)
将抑制警告。
我最终使用了:
crs <- CRS("+proj=longlat +datum=WGS84")
polygons_ll <- polygons %>%
rgeos::gSimplify(tol=25, topologyPreserve=TRUE) %>%
spTransform(crs)
# overwrite untransformed polygons with transformed polygons
polygons@polygons <- polygons@polygons
地图现在加载速度更快了。