::: {.cell hash='08_Maps_cache/revealjs/italy-area-1_7fa1ce68443f191ae218df2f378c42ad'}

```{.r .cell-code}
italy %>%
  mutate(
    area = st_area(geometry)
    ) %>% 
  summarise(
    area = 
      set_units(sum(area), "km^2")
  ) 
```

::: {.cell-output .cell-output-stdout}
```
Simple feature collection with 1 feature and 1 field
Geometry type: MULTIPOLYGON
Dimension:     XY
Bounding box:  xmin: 6.602728 ymin: 35.48924 xmax: 18.51743 ymax: 47.08521
Geodetic CRS:  WGS 84
             area                       geometry
1 301184.7 [km^2] MULTIPOLYGON (((8.483897 39...
```
:::
:::