r - 下采样 sf 区域 / tigris 几何图形

Question

我正在用闪亮的 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 的东西？