dplyr error catch

NOAA-OWP · Oct 24, 2024 · c814102 · c814102
1 parent b25feb3
commit c814102
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/R/refactor_wrapper.R b/R/refactor_wrapper.R
@@ -74,8 +74,7 @@ refactor  = function (gpkg = NULL,
 
     outlets <- pois %>%
       inner_join(select(st_drop_geometry(network_list$flowpaths), 
-                        totdasqkm, match_id, 
-                        dnhydroseq), 
+                        all_of(totdasqkm, match_id, dnhydroseq)), 
                  by = c("hf_id" = match_id))
 
     # Need to avoid modification to flowlines immediately downstream of POIs

diff --git a/R/split_catchment.R b/R/split_catchment.R
@@ -206,8 +206,6 @@ split_catchment_divide <- function(catchment, fline, fdr, fac, lr = FALSE,
     group_by(L1) %>%
     filter(dplyr::row_number() == n()) %>%
     ungroup() 
-
-  fline = st_set_crs(fline, 5070)
 
   suppressWarnings(fdr_matrix <- prep_cat_fdr_fac(catchment, fdr, fac))