# NOT RUN {
sample <- system.file("extdata/sample_natseamless.gpkg",
package = "nhdplusTools")
waterbodies <- sf::read_sf(sample, "NHDWaterbody")
get_waterbody_index(waterbodies,
sf::st_sfc(sf::st_point(c(-89.356086, 43.079943)),
crs = 4326, dim = "XY"))
# }
Run the code above in your browser using DataLab