Establish compatibility with igraph >= 2.0.0

krlmlr · krlmlr · commit 906ded26a924 · 2024-01-21T10:19:20.000+01:00
diff --git a/R/random_walk.R b/R/random_walk.R
@@ -50,7 +50,7 @@ random_walk_rank <- function(n, root = NULL, mode = "out", weights = NULL) {
     if (!quo_is_null(weights)) {
       cli::cli_warn('{.arg weights} is ignored when doing a random walk on nodes')
     }
-    walk <- as.integer(random_walk(graph, root, n, mode))
+    walk <- as.integer(random_walk(graph, root, n, mode = mode))
     len_out <- gorder(graph)
   } else {
     weights <- eval_tidy(weights, .E(focused = FALSE)) %||% NA

Original file line number	Diff line number	Diff line change
`@@ -50,7 +50,7 @@ random_walk_rank <- function(n, root = NULL, mode = "out", weights = NULL) {`
`50`	`50`	`if (!quo_is_null(weights)) {`
`51`	`51`	`cli::cli_warn('{.arg weights} is ignored when doing a random walk on nodes')`
`52`	`52`	`}`
`53`		`- walk <- as.integer(random_walk(graph, root, n, mode))`
	`53`	`+ walk <- as.integer(random_walk(graph, root, n, mode = mode))`
`54`	`54`	`len_out <- gorder(graph)`
`55`	`55`	`} else {`
`56`	`56`	`weights <- eval_tidy(weights, .E(focused = FALSE)) %\|\|% NA`