disable for now

easystats · Jan 31, 2024 · 25eef25 · 25eef25
1 parent 8cb1ae9
commit 25eef25
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 5 deletions.
diff --git a/R/is_multivariate.R b/R/is_multivariate.R
@@ -54,10 +54,13 @@ is_multivariate <- function(x) {
     return(isTRUE(ncol(x$coefficients) > 1L))
   }
 
-  vgam_classes <- c("vglm", "vgam")
-  if (inherits(x, vgam_classes)) {
-    return(isTRUE(x@extra$multiple.responses))
-  }
+  ## TODO: Enable code once insight 0.19.8 is on CRAN!
+  ## This code breaks several packages, so we need to wait until insight 0.19.8
+
+  # vgam_classes <- c("vglm", "vgam")
+  # if (inherits(x, vgam_classes)) {
+  #   return(isTRUE(x@extra$multiple.responses))
+  # }
 
   FALSE
 }
diff --git a/tests/testthat/test-vgam.R b/tests/testthat/test-vgam.R
@@ -196,7 +196,9 @@ test_that("find_parameters", {
 
 test_that("is_multivariate", {
   expect_false(is_multivariate(m1))
-  expect_true(is_multivariate(m2))
+  ## TODO: Enable code once insight 0.19.8 is on CRAN!
+  ## This code breaks several packages, so we need to wait until insight 0.19.8
+  # expect_true(is_multivariate(m2))
 })
 
 test_that("find_statistic", {