::: {.cell hash='08_Maps_cache/revealjs/buffering_02317d153880e8223b33c630cf973499'}

```{.r .cell-code}
outer <- st_buffer(ux, 0.2)
inner <- st_buffer(ux, -0.2)
ggplot() +
  geom_sf(data=ux, fill=NA) +
  geom_sf(data=outer, 
          color="red", 
          fill=NA) +
  geom_sf(data=inner, 
          color="blue", 
          fill=NA) +
  theme_void()
```
:::