source(system.file("extdata", "walker_data.R", package = "nhdplusTools"))
fl <- dplyr::select(prepare_nhdplus(walker_flowline, 0, 0),
ID = COMID, toID = toCOMID, length = LENGTHKM)
get_pathlength(fl)
Run the code above in your browser using DataLab