::: {.cell hash='08_Maps_cache/revealjs/unnamed-chunk-53_195f5a7f7e444ce035540f306a7f8cde'}

```{.r .cell-code}
italy %>% 
  mutate(area = st_area(geometry)) %>% 
  summarise(
    area = sum(area),
    geometry = st_union(geometry)
  )
```

::: {.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 301184744530 [m^2] MULTIPOLYGON (((8.483897 39...
```
:::
:::