::: {.cell hash='08_Maps_cache/revealjs/unnamed-chunk-79_e41ed83787bb818183f7d0133173f50c'}

```{.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) %>%
  st_intersection(italy %>% st_transform(st_crs(all_airports)))

buffer <- st_buffer(airport, set_units(10, km)) %>% select(geometry)

italian_airports <- st_intersection(all_airports, st_transform(italy, st_crs(all_airports)))
italian_airports
```

::: {.cell-output .cell-output-stdout}
```
Simple feature collection with 11 features and 156 fields
Geometry type: POINT
Dimension:     XY
Bounding box:  xmin: 604505.6 ymin: 4074664 xmax: 1319439 ymax: 4927469
Projected CRS: +proj=aea +lat_1=29.5 +lat_2=42.5
# A tibble: 11 × 157
   scalerank featurecla type  name  abbrev location gps_code iata_code wikipedia
 *     <int> <chr>      <chr> <chr> <chr>  <chr>    <chr>    <chr>     <chr>    
 1         8 Airport    major Malp… MXP    terminal LIMC     MXP       http://e…
 2         8 Airport    major Turi… TRN    terminal LIMF     TRN       http://e…
 3         7 Airport    major Veni… VCE    terminal LIPZ     VCE       http://e…
 4         7 Airport    major Napl… NAP    terminal LIRN     NAP       http://e…
 5         2 Airport    major Leon… FCO    terminal LIRF     FCO       http://e…
 6         7 Airport    majo… Pisa… PSA    terminal LIRP     PSA       http://e…
 7         7 Airport    mid   Albe… ALL    ramp     LIMG     ALL       http://e…
 8         5 Airport    major Pale… PMO    terminal LICJ     PMO       http://e…
 9         8 Airport    major Cata… CTA    terminal LICC     CTA       http://e…
10         5 Airport    major Orio… BGY    terminal LIME     BGY       http://e…
11         2 Airport    major Lina… LIN    terminal LIML     LIN       http://e…
# ℹ 148 more variables: natlscale <dbl>, comments <chr>, wikidataid <chr>,
#   name_ar <chr>, name_bn <chr>, name_de <chr>, name_en <chr>, name_es <chr>,
#   name_fr <chr>, name_el <chr>, name_hi <chr>, name_hu <chr>, name_id <chr>,
#   name_it <chr>, name_ja <chr>, name_ko <chr>, name_nl <chr>, name_pl <chr>,
#   name_pt <chr>, name_ru <chr>, name_sv <chr>, name_tr <chr>, name_vi <chr>,
#   name_zh <chr>, wdid_score <int>, ne_id <chr>, featurecla.1 <chr>,
#   scalerank.1 <int>, adm1_code <chr>, diss_me <int>, iso_3166_2 <chr>, …
```
:::
:::