# NOT RUN {
library(sf)
start_COMID <- 11688818
sample_flines <- read_sf(system.file("extdata",
"petapsco_flowlines.gpkg",
package = "nhdplusTools"))
DD_COMIDs <- get_DD(sample_flines, start_COMID, distance = 4)
plot(dplyr::filter(sample_flines, COMID %in% DD_COMIDs)$geom,
col = "red", lwd = 2)
DM_COMIDs <- get_DM(sample_flines, start_COMID, distance = 4)
plot(dplyr::filter(sample_flines, COMID %in% DM_COMIDs)$geom,
col = "blue", add = TRUE, lwd = 2)
# }
Run the code above in your browser using DataLab