diff --git a/R/group_pts.R b/R/group_pts.R
index e60083cc..94287afb 100644
--- a/R/group_pts.R
+++ b/R/group_pts.R
@@ -182,7 +182,7 @@ group_pts <- function(DT = NULL,
       method = 'euclidean'))
     graphAdj <-
       igraph::graph_from_adjacency_matrix(distMatrix <= threshold)
-    igraph::clusters(graphAdj)$membership
+    igraph::components(graphAdj)$membership
   },
   by = c(splitBy, timegroup), .SDcols = c(coords, id)]
   DT[, group := .GRP,