## -----------------------------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## -----------------------------------------------------------------------------
library(ggseg.formats)

## -----------------------------------------------------------------------------
poly <- as_polygon_atlas(dk())
is_atlas_polygon(poly)

atlas_labels(poly) |>
  head()