::: {.cell hash='08_Maps_cache/revealjs/unnamed-chunk-74_d486ea14c7cabb365139a96e8109a53f'}

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

::: {.cell-output .cell-output-stdout}
```
Simple feature collection with 7909 features and 1 field
Geometry type: POINT
Dimension:     XY
Bounding box:  xmin: -121.5463 ymin: 27.94686 xmax: 18.49117 ymax: 52.31311
Geodetic CRS:  WGS 84
# A tibble: 7,909 × 2
   city                                                           geometry
   <chr>                                                       <POINT [°]>
 1 "EMARÔSE"                                           (7.313076 45.73496)
 2 "F\u0090NIS"                                        (7.496921 45.73307)
 3 "VERRÔS"                                            (7.693805 45.66244)
 4 "FIE' ALLO SCILIAR/V\u0099LS AM SCHLERN"            (11.51127 46.50655)
 5 "FUNES/VILLN\u0099SS"                               (11.68486 46.64055)
 6 "LUSON/L\u009aSEN"                                  (11.76216 46.74531)
 7 "MELTINA/M\u0099LTEN"                               (11.25348 46.58517)
 8 "RIO DI PUSTERIA/M\u009aHLBACH"                      (11.6681 46.79652)
 9 "SANTA CRISTINA VALGARDENA/ST. CHRISTINA IN GR\u00… (11.71928 46.56814)
10 "SELVA DEI MOLINI/M\u009aHLWALD"                     (11.86295 46.8898)
# ℹ 7,899 more rows
```
:::
:::