diff --git a/R/is_multivariate.R b/R/is_multivariate.R index 5f3bc4402..6df1863cd 100644 --- 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 index bf60ed485..650033c7c 100644 --- 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", {