Safeguard suggested {intergraph} package in tests (#491)

ggobi · Feb 12, 2024 · 85a4944 · 85a4944
1 parent a635e2d
commit 85a4944
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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)