# NOT RUN {
sample_flines <- sf::read_sf(system.file("extdata",
"petapsco_flowlines.gpkg",
package = "nhdplusTools"))
get_flowline_index(sample_flines,
sf::st_sfc(sf::st_point(c(-76.87479,
39.48233)),
crs = 4326))
# }
Run the code above in your browser using DataLab