::: {.cell hash='08_Maps_cache/revealjs/unnamed-chunk-27_06147dc2705e72d8a848b465a95c7080'}

```{.r .cell-code}
options("download.file.method" = 
          "libcurl")

lakes_file <- "data/ne_10m_lakes.shp"
if (!file.exists(lakes_file)) {
  lakes <- ne_download(
    scale = "large",
    type = "lakes",
    category = "physical",
    returnclass = "sf"
  )
  write_sf(lakes, lakes_file)
} else {
  lakes <- read_sf(lakes_file)
}
```
:::