attempt to fix dependencies on DiagrammeRsvg et al.

rempsyc · Jun 9, 2024 · 243a49a · 243a49a
1 parent 7ffa7fe
commit 243a49a
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 2 deletions.
diff --git a/R/nice_lavaanPlot.R b/R/nice_lavaanPlot.R
@@ -43,7 +43,8 @@ nice_lavaanPlot <- function(
     graph_options = c(rankdir = "LR"), ...) {
   insight::check_if_installed(
     c(
-      "lavaanPlot", "DiagrammeRsvg", "rsvg", "png", "webshot"
+      "lavaanPlot"#, #"DiagrammeRsvg",
+      # "rsvg", "png", "webshot"
     ),
     reason = "for this function."
   )

diff --git a/tests/testthat/test-cfa_fit_plot.R b/tests/testthat/test-cfa_fit_plot.R
@@ -27,6 +27,7 @@ fit2 <- cfa(model, data, estimator = estimator)
 
 test_that("cfa_fit_plot comparison to cfa", {
   skip_if_not_installed("lavaanPlot")
+  skip_if_not_installed("DiagrammeRsvg")
   fit1 <- cfa_fit_plot(model, data)
   expect_equal(
     summary(fit1),
@@ -37,6 +38,7 @@ test_that("cfa_fit_plot comparison to cfa", {
 test_that("cfa_fit_plot save as PDF", {
   skip_on_cran()
   skip_if_not_installed("lavaanPlot")
+  skip_if_not_installed("DiagrammeRsvg")
   fit3 <- cfa_fit_plot(model, data, save.as.pdf = TRUE, file.name = "cfaplot")
   expect_equal(
     summary(fit3),
@@ -49,6 +51,7 @@ fit5 <- cfa(model, data, estimator = estimator)
 
 test_that("cfa_fit_plot remove items", {
   skip_if_not_installed("lavaanPlot")
+  skip_if_not_installed("DiagrammeRsvg")
   fit4 <- cfa_fit_plot(model, data, print = FALSE, remove.items = c("x1"))
   expect_equal(
     summary(fit4),
@@ -62,5 +65,4 @@ test_that("cfa_fit_plot save as PDF error", {
   )
 })
 
-
 setwd(.old_wd)
diff --git a/tests/testthat/test-nice_lavaanPlot.R b/tests/testthat/test-nice_lavaanPlot.R
@@ -45,6 +45,7 @@ fit.sem2 <- sem(HS.model2, data)
 
 test_that("nice_lavaanPlot on CFA", {
   skip_if_not_installed("lavaanPlot")
+  skip_if_not_installed("DiagrammeRsvg")
   expect_s3_class(
     nice_lavaanPlot(fit.cfa),
     c("grViz", "htmlwidget")
@@ -53,6 +54,7 @@ test_that("nice_lavaanPlot on CFA", {
 
 test_that("nice_lavaanPlot on SEM", {
   skip_if_not_installed("lavaanPlot")
+  skip_if_not_installed("DiagrammeRsvg")
   expect_s3_class(
     nice_lavaanPlot(fit.sem),
     c("grViz", "htmlwidget")
@@ -61,6 +63,7 @@ test_that("nice_lavaanPlot on SEM", {
 
 test_that("nice_lavaanPlot on lavaan", {
   skip_if_not_installed("lavaanPlot")
+  skip_if_not_installed("DiagrammeRsvg")
   expect_s3_class(
     nice_lavaanPlot(fit.lavaan),
     c("grViz", "htmlwidget")
@@ -69,8 +72,10 @@ test_that("nice_lavaanPlot on lavaan", {
 
 test_that("nice_lavaanPlot different sem model", {
   skip_if_not_installed("lavaanPlot")
+  skip_if_not_installed("DiagrammeRsvg")
   expect_s3_class(
     nice_lavaanPlot(fit.sem2),
     c("grViz", "htmlwidget")
   )
 })
+