::: {.cell hash='08_Maps_cache/revealjs/unnamed-chunk-69_e763e74a64d65eeb4a9ff1fab6bd550e'}

```{.r .cell-code}
airports_file <- "data/ne_10m_airports.shp"
if (!file.exists(airports_file)) {
  airport <- ne_download(
    scale = "large",
    type = "airports",
    category = "cultural",
    returnclass = "sf"
  )
  write_sf(airport, airports_file)
}
```
:::