``` a <- geobr::read_health_region(2013) unique(a$code_health_region ) |> length() #[1] 439 nrow(a) # [1] 5569 ```