layer_us_state <- get_level_layer(gd_us, "state")
state <-
geolevel(name = "state",
layer = layer_us_state,
key = "statefp")
state_ll <- state |>
get_level_layer("polygon")
county_ll <- gd_us |>
get_level_layer(level_name = "county",
geometry = "polygon",
inherited = TRUE)
Run the code above in your browser using DataLab