对 SF 区域/底格里斯河几何进行下采样

如何解决对 SF 区域/底格里斯河几何进行下采样

我正在用闪亮的 R 向地图视图和传单添加小册子。为单个县（伊利诺伊州库克县）添加大片然后添加到地图时，渲染大片大约需要 20 秒。有没有办法对道几何形状进行下采样，例如使用SF？我真的不需要任何高质量的几何图形。简单的几何图形肯定就足够了。

library(tigris)
library(mapview)
library(leaflet)
library(sf)

## server.R:
cookTracts <- tracts(state = 'IL',county = 'Cook',year = 2010)
m <- mapview(cookTracts,zcol = 'ALAND10') # choose an arbitray zcol
output$mapplot <- renderLeaflet({
  m@map
})

## ui.R:
leafletoutput('mapplot',height = '100%')

例如，也许使用诸如 st_simplify 之类的东西？