library(tidyr)
library(sf)
ui <- gd_us %>%
get_unrelated_instances(lower_level_name = "state",
upper_level_name = "division")
gd <- gd_us %>%
complete_relation_by_geography(lower_level_name = "state",
upper_level_name = "division")
Run the code above in your browser using DataLab