removed netswan dependency (#203)

DESCRIPTION

@@ -36,8 +36,7 @@ Suggests:
     graph,
     influenceR,
     methods,
-    netrankr,
-    NetSwan,
+    netrankr (>= 1.2.4),
     network,
     seriation,
     testthat (>= 3.0.0)

R/aaa.R

@@ -30,6 +30,3 @@ expect_netrankr <- function(...) {
 expect_seriation <- function(...) {
   rlang::check_installed('seriation', ...)
 }
-expect_netswan <- function(...) {
-  rlang::check_installed('NetSwan', ...)
-}

R/node.R

@@ -267,27 +267,27 @@ node_effective_network_size <- function() {
   graph <- .G()
   influenceR::ens(graph)[focus_ind(graph, 'nodes')]
 }
-#' @describeIn node_measures measures the impact on connectivity when removing the node (`NetSwan`)
+#' @describeIn node_measures measures the impact on connectivity when removing the node (`netrankr`)
 #' @export
 node_connectivity_impact <- function() {
-  expect_netswan()
+  expect_netrankr()
   expect_nodes()
   graph <- .G()
-  NetSwan::swan_connectivity(graph)[focus_ind(graph, 'nodes')]
+  netrankr::swan_connectivity(graph)[focus_ind(graph, 'nodes')]
 }
-#' @describeIn node_measures measures the impact on closeness when removing the node (`NetSwan`)
+#' @describeIn node_measures measures the impact on closeness when removing the node (`netrankr`)
 #' @export
 node_closeness_impact <- function() {
-  expect_netswan()
+  expect_netrankr()
   expect_nodes()
   graph <- .G()
-  NetSwan::swan_closeness(graph)[focus_ind(graph, 'nodes')]
+  netrankr::swan_closeness(graph)[focus_ind(graph, 'nodes')]
 }
-#' @describeIn node_measures measures the impact on fareness (distance between all node pairs) when removing the node (`NetSwan`)
+#' @describeIn node_measures measures the impact on fareness (distance between all node pairs) when removing the node (`netrankr`)
 #' @export
 node_fareness_impact <- function() {
-  expect_netswan()
+  expect_netrankr()
   expect_nodes()
   graph <- .G()
-  NetSwan::swan_efficiency(graph)[focus_ind(graph, 'nodes')]
+  netrankr::swan_efficiency(graph)[focus_ind(graph, 'nodes')]
 }