updated deprecated igraph function

reconhub · Jan 20, 2025 · 6d45c1c · 6d45c1c
1 parent 792223a
commit 6d45c1c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -12,7 +12,7 @@ Authors@R: c(person("Finlay", "Campbell", email = "[email protected]",
 	     person("Zhian N.", "Kamvar", email = "[email protected]", role = c("aut")))
 Description: A collection of tools for representing epidemiological contact data, composed of case line lists and contacts between cases. Also contains procedures for data handling, interactive graphics, and statistics.
 License: GPL (>=2)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 Imports: grDevices, dplyr, igraph, visNetwork, threejs, methods
 Suggests: outbreaks, testthat, covr, shiny, readr, knitr, rmarkdown
 VignetteBuilder: knitr

diff --git a/R/get_clusters.R b/R/get_clusters.R
@@ -77,7 +77,8 @@ get_clusters <- function(x, output = c("epicontacts", "data.frame"),
 
   output <- match.arg(output)
   net <- as.igraph.epicontacts(x)
-  cs <- igraph::clusters(net)
+
+  cs <- igraph::components(net)
   cs_size <- setNames(data.frame(cluster_member = seq_along(cs$csize),
                                  cluster_size = cs$csize),
                       cluster_cols)