us_state_point <-
coordinates_to_geometry(layer_us_state,
lon_lat = c("intptlon", "intptlat"))
state <-
geolevel(name = "state",
layer = layer_us_state,
key = c("geoid")) |>
add_geometry(layer = us_state_point)
empty_geometry_instances <- state |>
get_empty_geometry_instances(geometry = "point")
Run the code above in your browser using DataLab