# 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))
get_flowline_index("download_nhdplusv2",
sf::st_sfc(sf::st_point(c(-76.87479,
39.48233)),
crs = 4326))
get_flowline_index(sample_flines,
sf::st_sfc(sf::st_point(c(-76.87479,
39.48233)),
crs = 4326), precision = 30)
get_flowline_index(sample_flines,
sf::st_sfc(list(sf::st_point(c(-76.86934, 39.49328)),
sf::st_point(c(-76.91711, 39.40884)),
sf::st_point(c(-76.88081, 39.36354))),
crs = 4326),
search_radius = 0.2,
max_matches = 10)
# }
Run the code above in your browser using DataLab