updated deprecated igraph function

Author: finlaycampbell

DESCRIPTION

@@ -12,7 +12,7 @@ Authors@R: c(person("Finlay", "Campbell", email = "finlaycampbell93@gmail.com",
 	     person("Zhian N.", "Kamvar", email = "zkamvar@gmail.com", 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

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)