measoshapes.md

library(measoshapes)
library(dplyr)
library(sf)

## join on the names
measo_regions <- measo_regions05  |>  inner_join(measo_names, by = "name", relationship = "many-to-many")
## here we dissolve by name (remove the antimeridian split)
measo <- measo_regions |>  group_by(name, zone, fill) |>  summarize()  
## here we drop NA regions
measo_valid <- measo |> filter(!is.na(zone))

sf::write_sf(measo_regions, "measo_regions.gpkg")
sf::write_sf(measo, "measo.gpkg")
sf::write_sf(measo_valid, "measo_valid.gpkg")

measo_regions

measo

measo_valid