tests passing with random seed set

Author: TomKellyGenetics

tests/testthat/test_bipartite.R

@@ -2,6 +2,7 @@ library("reticulate")
 library("igraph")
 library("leiden")
 library("bipartite")
+set.seed(9000)
 
 context("running Leiden on a bipartite igraph object")
 

tests/testthat/test_igraph.R

@@ -2,6 +2,7 @@ library("leiden")
 library("reticulate")
 library("igraph")
 context("running Leiden on an igraph object")
+set.seed(9000)
 
 adj_mat <- matrix(round(runif(10000, 0, 1)), 100, 100)
 snn_graph <- graph_from_adjacency_matrix(adj_mat)

tests/testthat/test_leiden.R

@@ -1,6 +1,7 @@
 library("leiden")
 library("reticulate")
 context("running Leiden on an adjacency matrix")
+set.seed(9000)
 
 adj_mat <- matrix(round(runif(10000, 0, 1)), 100, 100)
 

tests/testthat/test_methods.R

@@ -2,6 +2,7 @@ library("leiden")
 library("reticulate")
 library("igraph")
 context("running Leiden on an dense and sparse matrices")
+set.seed(9000)
 
 adj_mat <- matrix(round(runif(10000, 0, 1)), 100, 100)
 snn_graph <- graph_from_adjacency_matrix(adj_mat)

tests/testthat/test_multiplex.R

@@ -1,6 +1,7 @@
 library("reticulate")
 library("igraph")
 library("leiden")
+set.seed(9000)
 
 context("running Leiden on multiplex igraph objects")
 

tests/testthat/test_weighted.R

@@ -2,6 +2,7 @@ library("leiden")
 library("reticulate")
 library("igraph")
 context("running Leiden on unweighted objects")
+set.seed(9000)
 
 modules <- reticulate::py_module_available("leidenalg") && reticulate::py_module_available("igraph")