fixes

Author: strengejacke

DESCRIPTION

@@ -93,6 +93,7 @@ Suggests:
     CompQuadForm,
     correlation,
     cplm,
+    curl,
     dagitty,
     dbscan,
     DHARMa (>= 0.4.7),

tests/testthat/test-icc.R

@@ -39,6 +39,7 @@ test_that("icc", {
   skip_if_offline()
   skip_if_not_installed("httr2")
   m2 <- insight::download_model("stanreg_lmerMod_1")
+  skip_if(is.null(m2))
   expect_equal(
     icc(m2),
     data.frame(
@@ -55,6 +56,7 @@ test_that("icc", {
   skip_if_offline()
   skip_if_not_installed("httr2")
   m3 <- insight::download_model("brms_mixed_1")
+  skip_if(is.null(m3))
   set.seed(123)
   expect_equal(
     variance_decomposition(m3)$ICC_decomposed,
@@ -68,6 +70,7 @@ test_that("icc", {
   skip_if_offline()
   skip_if_not_installed("httr2")
   m3 <- insight::download_model("brms_mixed_1")
+  skip_if(is.null(m3))
   set.seed(123)
   expect_equal(
     icc(m3),

tests/testthat/test-model_performance.merMod.R

@@ -5,15 +5,18 @@ test_that("model_performance.merMod", {
   skip_if_not_installed("httr2")
 
   model <- insight::download_model("lmerMod_1")
+  skip_if(is.null(model))
   expect_equal(model_performance(model, estimator = "ML")$AIC, AIC(logLik(model, REML = FALSE)), tolerance = 0.01)
   expect_equal(model_performance(model, estimator = "REML")$AIC, AIC(model), tolerance = 0.01)
 
   model <- insight::download_model("merMod_1")
+  skip_if(is.null(model))
   expect_equal(model_performance(model)$AIC, AIC(model), tolerance = 0.01)
   expect_equal(model_performance(model, estimator = "REML")$AIC, AIC(model), tolerance = 0.01)
   expect_equal(model_performance(model)$AIC, 23.58593, tolerance = 0.01)
 
   model <- insight::download_model("merMod_2")
+  skip_if(is.null(model))
   expect_equal(model_performance(model)$AIC, 21.4729, tolerance = 0.01)
 })
 

tests/testthat/test-r2_bayes.R

@@ -38,6 +38,7 @@ test_that("r2_bayes", {
   skip_if_not_installed("rstanarm")
   skip_if_not_installed("rstantools")
   model <- insight::download_model("stanreg_lmerMod_1")
+  skip_if(is.null(model))
   set.seed(123)
   out <- r2_bayes(model)
   expect_equal(out$R2_Bayes, 0.642, tolerance = 1e-3)