Get Terminal ID
Get the ID of the basin outlet for each flowline.
get_terminal(x, outlets)
x |
two column data.frame with IDs and toIDs. Names are ignored. |
outlets |
IDs of outlet flowlines |
source(system.file("extdata", "walker_data.R", package = "nhdplusTools")) fl <- dplyr::select(prepare_nhdplus(walker_flowline, 0, 0), ID = COMID, toID = toCOMID) outlet <- fl$ID[which(!fl$toID %in% fl$ID)] get_terminal(fl, outlet)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.