fix use id arg

ropensci · Oct 3, 2024 · 83a7b75 · 83a7b75
1 parent 1864611
commit 83a7b75
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/centroid_dyad.R b/R/centroid_dyad.R
@@ -165,14 +165,14 @@ centroid_dyad <- function(
   m <- merge(edges,
         DT[, .SD, .SDcols = c(coords, id, 'timegroup')],
         by.x = c('ID1', timegroup),
-        by.y = c('ID', timegroup),
+        by.y = c(id, timegroup),
         all.x = TRUE,
         sort = FALSE)
   data.table::setnames(m, coords, id1_coords)
   m <- merge(m,
              DT[, .SD, .SDcols = c(coords, id, 'timegroup')],
              by.x = c('ID2', timegroup),
-             by.y = c('ID', timegroup),
+             by.y = c(id, timegroup),
              all.x = TRUE,
              sort = FALSE)
   data.table::setnames(m, coords, id2_coords)