fix tests

Author: DominiqueMakowski

tests/testthat/test-estimate_smooth.R

@@ -1,10 +1,11 @@
 if (require("testthat") && require("modelbased") && require("rstanarm")) {
   test_that("estimate_smooth", {
+    testthat::skip_on_cran()
     set.seed(333)
 
-    # model <- rstanarm::stan_gamm4(Sepal.Width ~ s(Petal.Length), data = iris, refresh = 0, iter = 200, chains = 2, seed = 333)
-    # estim <- estimate_smooth(model)
-    # testthat::expect_equal(c(nrow(estim), ncol(estim)), c(2, 7))
+    model <- rstanarm::stan_gamm4(Sepal.Width ~ s(Petal.Length), data = iris, refresh = 0, iter = 200, chains = 2, seed = 333)
+    estim <- estimate_smooth(model)
+    testthat::expect_equal(c(nrow(estim), ncol(estim)), c(2, 7))
 
     model <- rstanarm::stan_glm(Sepal.Width ~ poly(Petal.Length, 2), data = iris, refresh = 0, iter = 200, chains = 2, seed = 333)
     estim <- estimate_smooth(model)

tests/testthat/test-glmmTMB.R

@@ -1,4 +1,7 @@
 if (require("testthat") && require("modelbased") && require("glmmTMB") && require("emmeans")) {
+
+  # testthat::skip_on_cran()
+
   data <- glmmTMB::Salamanders
   model <- glmmTMB::glmmTMB(
     count ~ mined + (1 | site),