fix

Author: strengejacke

R/compare_parameters.R

@@ -169,7 +169,7 @@ compare_parameters <- function(...,
       dat <- model
     } else {
       # set default-ci_type for Bayesian models
-      if (.is_bayesian_model(model, exclude = c("bmerMod", "bayesx", "blmerMod", "bglmerMod")) && !ci_method %in% c("hdi", "quantile", "ci", "eti", "si", "bci", "bcai")) { # nolint
+      if (insight::is_bayesian_model(model, exclude = c("bmerMod", "bayesx", "blmerMod", "bglmerMod")) && !ci_method %in% c("hdi", "quantile", "ci", "eti", "si", "bci", "bcai")) { # nolint
         ci_method_tmp <- "eti"
       } else {
         ci_method_tmp <- ci_method
@@ -305,19 +305,3 @@ compare_models <- compare_parameters
   }
   x
 }
-
-
-.is_bayesian_model <- function(x, exclude = NULL) {
-  bayes_classes <- c(
-    "brmsfit", "stanfit", "MCMCglmm", "stanreg",
-    "stanmvreg", "bmerMod", "BFBayesFactor", "bamlss",
-    "bayesx", "mcmc", "bcplm", "bayesQR", "BGGM",
-    "meta_random", "meta_fixed", "meta_bma", "blavaan",
-    "blrm", "blmerMod"
-  )
-  # if exclude is not NULL, remove elements in exclude from bayes_class
-  if (!is.null(exclude)) {
-    bayes_classes <- bayes_classes[!bayes_classes %in% exclude]
-  }
-  inherits(x, bayes_classes)
-}

R/extract_random_variances.R

@@ -689,31 +689,8 @@ as.data.frame.VarCorr.lme <- function(x, row.names = NULL, optional = FALSE, ...
 # store essential information about variance components...
 # basically, this function should return lme4::VarCorr(x)
 .get_variance_information <- function(model, model_component = "conditional") {
-  # reason to be installed
-  reason <- "to compute random effect variances for mixed models"
-
-  # installed?
-  insight::check_if_installed("lme4", reason = reason)
-
-  if (inherits(model, "lme")) {
-    insight::check_if_installed("nlme", reason = reason)
-  }
-
-  if (inherits(model, "clmm")) {
-    insight::check_if_installed("ordinal", reason = reason)
-  }
-
-  if (inherits(model, "brmsfit")) {
-    insight::check_if_installed("brms", reason = reason)
-  }
-
-  if (inherits(model, "cpglmm")) {
-    insight::check_if_installed("cplm", reason = reason)
-  }
-
-  if (inherits(model, "rstanarm")) {
-    insight::check_if_installed("rstanarm", reason = reason)
-  }
+  # check if packages are available
+  .check_mixedmodels_namespace(model)
 
   # stanreg
   # ---------------------------
@@ -835,6 +812,39 @@ as.data.frame.VarCorr.lme <- function(x, row.names = NULL, optional = FALSE, ...
 }
 
 
+.check_mixedmodels_namespace <- function(model) {
+  # reason to be installed
+  reason <- "to compute random effect variances for mixed models"
+
+  # installed?
+  insight::check_if_installed("lme4", reason = reason)
+
+  if (inherits(model, "lme")) {
+    insight::check_if_installed("nlme", reason = reason)
+  }
+
+  if (inherits(model, "glmmTMB")) {
+    insight::check_if_installed("glmmTMB", reason = reason)
+  }
+
+  if (inherits(model, "clmm")) {
+    insight::check_if_installed("ordinal", reason = reason)
+  }
+
+  if (inherits(model, "brmsfit")) {
+    insight::check_if_installed("brms", reason = reason)
+  }
+
+  if (inherits(model, "cpglmm")) {
+    insight::check_if_installed("cplm", reason = reason)
+  }
+
+  if (inherits(model, "rstanarm")) {
+    insight::check_if_installed("rstanarm", reason = reason)
+  }
+}
+
+
 # glmmTMB returns a list of model information, one for conditional
 # and one for zero-inflation part, so here we "unlist" it, returning
 # only the conditional part.