Move vdiffr to a suggested package

nlmixr2 · May 1, 2024 · ce31210 · ce31210
1 parent d8a3d7f
commit ce31210
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 15 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -37,12 +37,12 @@ Imports:
     ggplot2,
     ggforce,
     stringi,
-    crayon,
-    vdiffr
+    crayon
 Suggests:
     devtools,
     rxode2 (> 2.0.13),
     lotri,
     testthat (>= 3.0.0),
-    xgxr
+    xgxr,
+    vdiffr
 Config/testthat/edition: 3
diff --git a/tests/testthat/test-data-import.R b/tests/testthat/test-data-import.R
@@ -5,21 +5,25 @@ test_that("single endpoint import", {
 
   rx <- monolix2rx(file.path(pkgTheo, "theophylline_project.mlxtran"))
   expect_true(inherits(rx, "rxUi"))
-  vdiffr::expect_doppelganger("single-endpoint-theo",
-                              plot(rx))
-  vdiffr::expect_doppelganger("single-endpoint-theo-p1",
-                              plot(rx, page=1))
-  vdiffr::expect_doppelganger("single-endpoint-theo-pall",
-                              plot(rx, page=TRUE))
+  if (requireNamespace("vdiffr", quietly=TRUE)) {
+    vdiffr::expect_doppelganger("single-endpoint-theo",
+                                plot(rx))
+    vdiffr::expect_doppelganger("single-endpoint-theo-p1",
+                                plot(rx, page=1))
+    vdiffr::expect_doppelganger("single-endpoint-theo-pall",
+                                plot(rx, page=TRUE))
+  }
 })
 
 test_that("multiple endpoint import", {
   rx <- monolix2rx(file.path(pkgTheo, "parent_metabolite_project.mlxtran"))
   expect_true(inherits(rx, "rxUi"))
-  vdiffr::expect_doppelganger("multiple-endpoint-theo",
-                              plot(rx))
-  vdiffr::expect_doppelganger("multiple-endpoint-theo-p1",
-                              plot(rx, page=1))
-  vdiffr::expect_doppelganger("multiple-endpoint-theo-pall",
-                              plot(rx, page=TRUE))
+  if (requireNamespace("vdiffr", quietly=TRUE)) {
+    vdiffr::expect_doppelganger("multiple-endpoint-theo",
+                                plot(rx))
+    vdiffr::expect_doppelganger("multiple-endpoint-theo-p1",
+                                plot(rx, page=1))
+    vdiffr::expect_doppelganger("multiple-endpoint-theo-pall",
+                                plot(rx, page=TRUE))
+  }
 })