added ungrouping for some DF

workspace/R/NHD_navigate.R

@@ -552,9 +552,6 @@ POI_move_down<-function(out_gpkg, POIs, Seg, Seg2, exp, DA_diff){
   return (list(allPOIs = fin_POIs, segs = newSegs$diss_segs, FL = newSegs$raw_segs))
 }
 
-
-
-
 #' Identifies and attributes structural POIs
 #'  @param nhdDF (sf data.frame) valid data frame of NHD flowlines
 #'  @param final_POIs  (sf data.frame) final POIs
@@ -564,6 +561,7 @@ structPOIsNet <- function(nhdDF, final_POIs){
   
   # subset to flowlines used for nsegments
   inc_segs <- filter(nhdDF, !is.na(POI_ID))
+  VPU <- inc_segs$VPUID
   
   # Terminal outlets from the initial network
   termout <- filter(nhdDF, !Hydroseq %in% DnHydroseq & TerminalFl == 1 & !COMID %in% final_POIs$COMID)