skip_if_not_installed("gam")

larmarange · Nov 30, 2022 · e41e5c7 · e41e5c7
1 parent fbf37b9
commit e41e5c7
Show file tree

Hide file tree

Showing 9 changed files with 9 additions and 0 deletions.
diff --git a/tests/testthat/test-add_coefficients_type.R b/tests/testthat/test-add_coefficients_type.R
@@ -260,6 +260,7 @@ test_that("model_get_coefficients_type() works with geepack::geeglm", {
 
 
 test_that("model_get_coefficients_type() works with gam::gam", {
+  skip_if_not_installed("gam")
   data(kyphosis, package = "gam")
   mod <- gam::gam(Kyphosis ~ gam::s(Age, 4) + Number, family = binomial, data = kyphosis)
   res <- mod %>% model_get_coefficients_type()

diff --git a/tests/testthat/test-add_contrasts.R b/tests/testthat/test-add_contrasts.R
@@ -253,6 +253,7 @@ test_that("tidy_add_contrasts() works with geepack::geeglm", {
 
 
 test_that("tidy_add_contrasts() works with gam::gam", {
+  skip_if_not_installed("gam")
   data(kyphosis, package = "gam")
   mod <- gam::gam(Kyphosis ~ gam::s(Age, 4) + Number, family = binomial, data = kyphosis)
   expect_error(mod %>% tidy_and_attach() %>% tidy_add_contrasts(), NA)

diff --git a/tests/testthat/test-add_estimate_to_reference_rows.R b/tests/testthat/test-add_estimate_to_reference_rows.R
@@ -323,6 +323,7 @@ test_that("tidy_add_estimate_to_reference_rows() works with geepack::geeglm", {
 
 
 test_that("tidy_add_estimate_to_reference_rows() works with gam::gam", {
+  skip_if_not_installed("gam")
   data(kyphosis, package = "gam")
   mod <- gam::gam(Kyphosis ~ gam::s(Age, 4) + Number, family = binomial, data = kyphosis)
   expect_error(mod %>% tidy_and_attach() %>% tidy_add_estimate_to_reference_rows(), NA)

diff --git a/tests/testthat/test-add_n.R b/tests/testthat/test-add_n.R
@@ -255,6 +255,7 @@ test_that("tidy_add_n() works with geepack::geeglm", {
 
 
 test_that("tidy_add_n() works with gam::gam", {
+  skip_if_not_installed("gam")
   data(kyphosis, package = "gam")
   mod <- gam::gam(Kyphosis ~ gam::s(Age, 4) + Number, family = binomial, data = kyphosis)
   expect_error(mod %>% tidy_and_attach() %>% tidy_add_n(), NA)

diff --git a/tests/testthat/test-add_term_labels.R b/tests/testthat/test-add_term_labels.R
@@ -315,6 +315,7 @@ test_that("tidy_add_term_labels() works with geepack::geeglm", {
 
 
 test_that("tidy_add_term_labels() works with gam::gam", {
+  skip_if_not_installed("gam")
   data(kyphosis, package = "gam")
   mod <- gam::gam(Kyphosis ~ gam::s(Age, 4) + Number, family = binomial, data = kyphosis)
   expect_error(mod %>% tidy_and_attach() %>% tidy_add_term_labels(), NA)

diff --git a/tests/testthat/test-add_variable_labels.R b/tests/testthat/test-add_variable_labels.R
@@ -306,6 +306,7 @@ test_that("tidy_add_variable_labels() works with geepack::geeglm", {
 
 
 test_that("tidy_add_variable_labels() works with gam::gam", {
+  skip_if_not_installed("gam")
   data(kyphosis, package = "gam")
   mod <- gam::gam(Kyphosis ~ gam::s(Age, 4) + Number, family = binomial, data = kyphosis)
   expect_error(mod %>% tidy_and_attach() %>% tidy_add_variable_labels(), NA)

diff --git a/tests/testthat/test-identify_variables.R b/tests/testthat/test-identify_variables.R
@@ -490,6 +490,7 @@ test_that("model_identify_variables() works with geepack::geeglm", {
 
 
 test_that("model_identify_variables() works with gam::gam", {
+  skip_if_not_installed("gam")
   data(kyphosis, package = "gam")
   mod <- gam::gam(Kyphosis ~ gam::s(Age, 4) + Number, family = binomial, data = kyphosis)
   res <- mod %>% model_identify_variables()

diff --git a/tests/testthat/test-model_get_n.R b/tests/testthat/test-model_get_n.R
@@ -343,6 +343,7 @@ test_that("model_get_n() works with geepack::geeglm", {
 
 
 test_that("model_get_n() works with gam::gam", {
+  skip_if_not_installed("gam")
   data(kyphosis, package = "gam")
   mod <- gam::gam(Kyphosis ~ gam::s(Age, 4) + Number, family = binomial, data = kyphosis)
   expect_error(res <- mod %>% model_get_n(), NA)

diff --git a/tests/testthat/test-tidy_plus_plus.R b/tests/testthat/test-tidy_plus_plus.R
@@ -383,6 +383,7 @@ test_that("tidy_plus_plus() works with geepack::geeglm", {
 
 test_that("tidy_plus_plus() works with gam::gam", {
   skip_on_cran()
+  skip_if_not_installed("gam")
   data(kyphosis, package = "gam")
   mod <- gam::gam(Kyphosis ~ gam::s(Age, 4) + Number, family = binomial, data = kyphosis)
   expect_error(