R/get_upstream.R

In mikejohnson51/FlowlineFinder: Find, Vizualize and Download NWM and NHD Data in 'Shiny'

#' @export

get_upstream <- function(flines) {
  dplyr::select(flines, COMID) %>% 
    dplyr::left_join(
      dplyr::select(flines, COMID, toCOMID),
      by = c("COMID" = "toCOMID")
    ) %>%
    dplyr::rename(fromCOMID = COMID.y)
}