diff --git a/tests/testthat/test-ggnet.R b/tests/testthat/test-ggnet.R index f6135d3c..23f37fab 100644 --- a/tests/testthat/test-ggnet.R +++ b/tests/testthat/test-ggnet.R @@ -230,7 +230,7 @@ test_that("examples", { expect_error(ggnet(network(data.frame(1:2, 3:4), multiple = TRUE)), "multiplex graphs") ### --- test igraph functionality - if (rq(igraph)) { + if (rq(igraph) && rq(intergraph)) { # test igraph conversion p <- ggnet(asIgraph(n)) expect_null(p$guides$colour) diff --git a/tests/testthat/test-ggnet2.R b/tests/testthat/test-ggnet2.R index 8bb0d533..0214373e 100644 --- a/tests/testthat/test-ggnet2.R +++ b/tests/testthat/test-ggnet2.R @@ -261,7 +261,7 @@ test_that("examples", { expect_error(ggnet2(network(data.frame(1:2, 3:4), multiple = TRUE)), "multiplex graphs") ### --- test igraph functionality - if (rq(igraph)) { + if (rq(igraph) && rq(intergraph)) { # test igraph conversion p <- ggnet2(asIgraph(n), color = "group") expect_null(p$guides$colour) diff --git a/tests/testthat/test-ggnetworkmap.R b/tests/testthat/test-ggnetworkmap.R index 9e1f95f9..0b88507a 100644 --- a/tests/testthat/test-ggnetworkmap.R +++ b/tests/testthat/test-ggnetworkmap.R @@ -220,7 +220,7 @@ test_that("network coercion", { ### --- test igraph functionality test_that("igraph conversion", { - if (rq(igraph)) { + if (rq(igraph) && rq(intergraph)) { n <- asIgraph(flights) p <- ggnetworkmap(net = n) expect_equal(length(p$layers), 2)