x <- sf::read_sf(system.file("extdata", "walker.gpkg", package = "hydroloom"))
hydro_location <- list(comid = 5329339,
reachcode = "18050005000078",
reach_meas = 30)
(pl <- get_partial_length(hydro_location, x))
Run the code above in your browser using DataLab