::: {.cell hash='08_Maps_cache/revealjs/unnamed-chunk-64_daf5b02a7ebc3955a53a5ba78f858b42'}

```{.r .cell-code}
italian_lakes <- 
  st_intersection(lakes, italy)
italian_rivers <- 
  st_intersection(rivers, italy)
```
:::