rm looking forward correct

ropensci · Sep 19, 2024 · 6c79017 · 6c79017
1 parent 8a1b454
commit 6c79017
Showing 1 changed file with 0 additions and 8 deletions.
diff --git a/R/fusion_id.R b/R/fusion_id.R
@@ -160,14 +160,6 @@ fusion_id <- function(edges = NULL,
                both_rleid := (both_rleid + seq.int(.N)) * -1,
                by = dyadID]
 
-  # Correct if (looking forward) the loc is part of a new fusion run
-  unique_edges[, both_rleid := data.table::fifelse(
-    timegroup - data.table::shift(timegroup, -1) == -1  &
-      within & !(tg_diff),
-    data.table::shift(both_rleid, -1),
-    both_rleid
-  ), by = dyadID]
-
   # If n minimum length > 0, check nrows and return NA if less than min
   if (n_min_length > 0) {
     unique_edges[!is.na(both_rleid), both_rleid := data.table::fifelse(