rebuilt enhd files aith this bug fix for #118

workspace/R/utils.R

@@ -203,7 +203,11 @@ clean_net <- function(net, net_new, nwm) {
   
   # NOTE: just being explicit about this for clarity.
   candidate <- select(net_new, comid, tocomid, nwm_tocomid) %>%
-    filter(!comid %in% avoid)
+    filter(!comid %in% avoid) %>%
+    # only use nwm changes where they are reconnecting the network
+    # this is key since enhd changed the flow direction of some divergences
+    # and those changes would be lost if we do not use this filter
+    filter(tocomid == 0 & nwm_tocomid != 0)
   
   mismatch <- candidate[candidate$tocomid != candidate$nwm_tocomid, ]