::: {.cell hash='08_Maps_cache/revealjs/unnamed-chunk-75_f36cb9de1cfe00ab0d203e5307535fd9'}

```{.r .cell-code}
library(units)
all_airports <- read_sf("data/ne_10m_airports.shp") %>%
  st_transform(aea)
cities <- read_sf("data/italian-cities.shp") %>%
  st_transform(aea)
cities
```

::: {.cell-output .cell-output-stdout}
```
Simple feature collection with 7909 features and 1 field
Geometry type: POINT
Dimension:     XY
Bounding box:  xmin: -8413242 ymin: 3826849 xmax: 1560109 ymax: 9859665
Projected CRS: +proj=aea +lat_1=29.5 +lat_2=42.5
# A tibble: 7,909 × 2
   city                                                          geometry
 * <chr>                                                      <POINT [m]>
 1 "EMARÔSE"                                           (573912.5 4913127)
 2 "F\u0090NIS"                                        (588328.3 4914008)
 3 "VERRÔS"                                            (604357.2 4907449)
 4 "FIE' ALLO SCILIAR/V\u0099LS AM SCHLERN"            (892205.3 5028992)
 5 "FUNES/VILLN\u0099SS"                               (903848.1 5045193)
 6 "LUSON/L\u009aSEN"                                  (908423.9 5057321)
 7 "MELTINA/M\u0099LTEN"                               (871325.4 5035252)
 8 "RIO DI PUSTERIA/M\u009aHLBACH"                       (900527 5062033)
 9 "SANTA CRISTINA VALGARDENA/ST. CHRISTINA IN GR\u00… (907445.5 5037617)
10 "SELVA DEI MOLINI/M\u009aHLWALD"                      (914258 5073994)
# ℹ 7,899 more rows
```
:::
:::