add skip_on_cran()

tidymodels · Dec 21, 2024 · a0cf39d · a0cf39d
1 parent c660b11
commit a0cf39d
Show file tree

Hide file tree

Showing 41 changed files with 47 additions and 6 deletions.
diff --git a/tests/testthat/test-augment.R b/tests/testthat/test-augment.R
@@ -38,6 +38,7 @@ test_that("SQLite - augment() works", {
 	skip_if_not_installed("workflows")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-model-partykit.R b/tests/testthat/test-model-partykit.R
@@ -1,8 +1,8 @@
 test_that("decision_tree(partykit) works with type = class", {
 	skip_if_not_installed("parsnip")
 	skip_if_not_installed("tidypredict")
-  skip_if_not_installed("bonsai")
-  library(bonsai)
+	skip_if_not_installed("bonsai")
+	library(bonsai)
 
 	mtcars$vs <- factor(mtcars$vs)
 
@@ -27,8 +27,8 @@ test_that("decision_tree(partykit) works with type = class", {
 test_that("decision_tree(partykit) works with type = prob", {
 	skip_if_not_installed("parsnip")
 	skip_if_not_installed("tidypredict")
-  skip_if_not_installed("bonsai")
-  library(bonsai)
+	skip_if_not_installed("bonsai")
+	library(bonsai)
 
 	mtcars$vs <- factor(mtcars$vs)
 
@@ -59,8 +59,8 @@ test_that("decision_tree(partykit) works with type = prob", {
 test_that("decision_tree(partykit) works with type = c(class, prob)", {
 	skip_if_not_installed("parsnip")
 	skip_if_not_installed("tidypredict")
-  skip_if_not_installed("bonsai")
-  library(bonsai)
+	skip_if_not_installed("bonsai")
+	library(bonsai)
 
 	mtcars$vs <- factor(mtcars$vs)
 

diff --git a/tests/testthat/test-step_adasyn.R b/tests/testthat/test-step_adasyn.R
@@ -80,6 +80,7 @@ test_that("SQLite - step_adasyn works", {
 	skip_if_not_installed("themis")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_adasyn <- dplyr::as_tibble(mtcars)
 	mtcars_adasyn$vs <- as.factor(mtcars$vs)
@@ -107,6 +108,7 @@ test_that("duckdb - step_adasyn works", {
 	skip_if_not_installed("themis")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_adasyn <- dplyr::as_tibble(mtcars)
 	mtcars_adasyn$vs <- as.factor(mtcars$vs)

diff --git a/tests/testthat/test-step_bin2factor.R b/tests/testthat/test-step_bin2factor.R
@@ -76,6 +76,7 @@ test_that("SQLite - step_bin2factor works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_boxcox.R b/tests/testthat/test-step_boxcox.R
@@ -74,6 +74,7 @@ test_that("SQLite - step_BoxCox works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_bsmote.R b/tests/testthat/test-step_bsmote.R
@@ -80,6 +80,7 @@ test_that("SQLite - step_bsmote works", {
 	skip_if_not_installed("themis")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_bsmote <- dplyr::as_tibble(mtcars)
 	mtcars_bsmote$vs <- as.factor(mtcars$vs)

diff --git a/tests/testthat/test-step_center.R b/tests/testthat/test-step_center.R
@@ -74,6 +74,7 @@ test_that("SQLite - step_center works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_discretize.R b/tests/testthat/test-step_discretize.R
@@ -125,6 +125,7 @@ test_that("SQLite - step_discretize works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_discretize <- dplyr::as_tibble(mtcars)
 	mtcars_discretize[1, ] <- NA

diff --git a/tests/testthat/test-step_downsample.R b/tests/testthat/test-step_downsample.R
@@ -80,6 +80,7 @@ test_that("SQLite - step_downsample works", {
 	skip_if_not_installed("themis")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_downsample <- dplyr::as_tibble(mtcars)
 	mtcars_downsample$vs <- as.factor(mtcars$vs)

diff --git a/tests/testthat/test-step_dummy.R b/tests/testthat/test-step_dummy.R
@@ -105,6 +105,7 @@ test_that("SQLite - step_dummy works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars1 <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_impute_mean.R b/tests/testthat/test-step_impute_mean.R
@@ -77,6 +77,7 @@ test_that("SQLite - step_impute_mean works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_impute_mean <- dplyr::as_tibble(mtcars)
 	mtcars_impute_mean[2:4, ] <- NA

diff --git a/tests/testthat/test-step_impute_median.R b/tests/testthat/test-step_impute_median.R
@@ -78,6 +78,7 @@ test_that("SQLite - step_impute_median works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_impute_median <- dplyr::as_tibble(mtcars)
 	mtcars_impute_median[2:4, ] <- NA

diff --git a/tests/testthat/test-step_impute_mode.R b/tests/testthat/test-step_impute_mode.R
@@ -86,6 +86,7 @@ test_that("SQLite - step_impute_mode works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_impute_mode <- dplyr::as_tibble(mtcars)
 	mtcars_impute_mode$gear <- letters[mtcars$gear]

diff --git a/tests/testthat/test-step_indicate_na.R b/tests/testthat/test-step_indicate_na.R
@@ -80,6 +80,7 @@ test_that("SQLite - step_indicate_na works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_indicate_na <- dplyr::as_tibble(mtcars)
 	mtcars_indicate_na[2:4, ] <- NA

diff --git a/tests/testthat/test-step_intercept.R b/tests/testthat/test-step_intercept.R
@@ -64,6 +64,7 @@ test_that("SQLite - step_intercept works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_inverse.R b/tests/testthat/test-step_inverse.R
@@ -91,6 +91,7 @@ test_that("SQLite - step_inverse works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_lag.R b/tests/testthat/test-step_lag.R
@@ -60,6 +60,7 @@ test_that("SQLite - step_lag works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_lencode_bayes.R b/tests/testthat/test-step_lencode_bayes.R
@@ -98,6 +98,7 @@ test_that("SQLite - step_lencode_bayes works", {
 	skip_if_not_installed("rstanarm")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_lencode_bayes <- dplyr::as_tibble(mtcars)
 	mtcars_lencode_bayes$gear <- as.factor(mtcars_lencode_bayes$gear)

diff --git a/tests/testthat/test-step_lencode_glm.R b/tests/testthat/test-step_lencode_glm.R
@@ -93,6 +93,7 @@ test_that("SQLite - step_lencode_glm works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_lencode_glm <- dplyr::as_tibble(mtcars)
 	mtcars_lencode_glm$gear <- as.factor(mtcars_lencode_glm$gear)

diff --git a/tests/testthat/test-step_lencode_mixed.R b/tests/testthat/test-step_lencode_mixed.R
@@ -93,6 +93,7 @@ test_that("SQLite - step_lencode_mixed works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_lencode_mixed <- dplyr::as_tibble(mtcars)
 	mtcars_lencode_mixed$gear <- as.factor(mtcars_lencode_mixed$gear)

diff --git a/tests/testthat/test-step_log.R b/tests/testthat/test-step_log.R
@@ -91,6 +91,7 @@ test_that("SQLite - step_log works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_mutate.R b/tests/testthat/test-step_mutate.R
@@ -74,6 +74,7 @@ test_that("SQLite - step_mutate works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_nearmiss.R b/tests/testthat/test-step_nearmiss.R
@@ -80,6 +80,7 @@ test_that("SQLite - step_nearmiss works", {
 	skip_if_not_installed("themis")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_nearmiss <- dplyr::as_tibble(mtcars)
 	mtcars_nearmiss$vs <- as.factor(mtcars$vs)

diff --git a/tests/testthat/test-step_normalize.R b/tests/testthat/test-step_normalize.R
@@ -74,6 +74,7 @@ test_that("SQLite - step_normalize works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_novel.R b/tests/testthat/test-step_novel.R
@@ -96,6 +96,7 @@ test_that("SQLite - step_novel works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_novel <- dplyr::as_tibble(mtcars)
 	mtcars_novel$gear <- letters[mtcars$gear]

diff --git a/tests/testthat/test-step_other.R b/tests/testthat/test-step_other.R
@@ -98,6 +98,7 @@ test_that("SQLite - step_other works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_other <- dplyr::as_tibble(mtcars)
 	mtcars_other$gear <- letters[mtcars$gear]

diff --git a/tests/testthat/test-step_pca.R b/tests/testthat/test-step_pca.R
@@ -95,6 +95,7 @@ test_that("SQLite - step_pca works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars0 <- dplyr::as_tibble(mtcars)
 	mtcars0$hp <- NULL

diff --git a/tests/testthat/test-step_pca_sparse.R b/tests/testthat/test-step_pca_sparse.R
@@ -110,6 +110,7 @@ test_that("SQLite - step_pca_sparse works", {
 	skip_if_not_installed("embed")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars0 <- dplyr::as_tibble(mtcars)
 	mtcars0$hp <- NULL

diff --git a/tests/testthat/test-step_pca_sparse_bayes.R b/tests/testthat/test-step_pca_sparse_bayes.R
@@ -115,6 +115,7 @@ test_that("SQLite - step_pca_sparse_bayes works", {
 	skip_if_not_installed("VBsparsePCA")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars0 <- dplyr::as_tibble(mtcars)
 	mtcars0$hp <- NULL

diff --git a/tests/testthat/test-step_pca_truncated.R b/tests/testthat/test-step_pca_truncated.R
@@ -108,6 +108,7 @@ test_that("SQLite - step_pca_truncated works", {
 	skip_if_not_installed("embed")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars0 <- dplyr::as_tibble(mtcars)
 	mtcars0$hp <- NULL

diff --git a/tests/testthat/test-step_range.R b/tests/testthat/test-step_range.R
@@ -91,6 +91,7 @@ test_that("SQLite - step_range works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_ratio.R b/tests/testthat/test-step_ratio.R
@@ -85,6 +85,7 @@ test_that("SQLite - step_ratio works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_rename.R b/tests/testthat/test-step_rename.R
@@ -74,6 +74,7 @@ test_that("SQLite - step_rename works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_rose.R b/tests/testthat/test-step_rose.R
@@ -80,6 +80,7 @@ test_that("SQLite - step_rose works", {
 	skip_if_not_installed("themis")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_rose <- dplyr::as_tibble(mtcars)
 	mtcars_rose$vs <- as.factor(mtcars$vs)

diff --git a/tests/testthat/test-step_scale.R b/tests/testthat/test-step_scale.R
@@ -74,6 +74,7 @@ test_that("SQLite - step_scale works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_smote.R b/tests/testthat/test-step_smote.R
@@ -80,6 +80,7 @@ test_that("SQLite - step_smote works", {
 	skip_if_not_installed("themis")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_smote <- dplyr::as_tibble(mtcars)
 	mtcars_smote$vs <- as.factor(mtcars$vs)

diff --git a/tests/testthat/test-step_smotenc.R b/tests/testthat/test-step_smotenc.R
@@ -80,6 +80,7 @@ test_that("SQLite - step_smotenc works", {
 	skip_if_not_installed("themis")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_smotenc <- dplyr::as_tibble(mtcars)
 	mtcars_smotenc$vs <- as.factor(mtcars$vs)

diff --git a/tests/testthat/test-step_sqrt.R b/tests/testthat/test-step_sqrt.R
@@ -74,6 +74,7 @@ test_that("SQLite - step_sqrt works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars <- dplyr::as_tibble(mtcars)
 

diff --git a/tests/testthat/test-step_tomek.R b/tests/testthat/test-step_tomek.R
@@ -80,6 +80,7 @@ test_that("SQLite - step_tomek works", {
 	skip_if_not_installed("themis")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_tomek <- dplyr::as_tibble(mtcars)
 	mtcars_tomek$vs <- as.factor(mtcars$vs)

diff --git a/tests/testthat/test-step_unknown.R b/tests/testthat/test-step_unknown.R
@@ -90,6 +90,7 @@ test_that("SQLite - step_unknown works", {
 	skip_if_not_installed("recipes")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_unknown <- dplyr::as_tibble(mtcars)
 	mtcars_unknown$gear <- letters[mtcars$gear]

diff --git a/tests/testthat/test-step_upsample.R b/tests/testthat/test-step_upsample.R
@@ -80,6 +80,7 @@ test_that("SQLite - step_upsample works", {
 	skip_if_not_installed("themis")
 	skip_if_not_installed("DBI")
 	skip_if_not_installed("RSQLite")
+	skip_on_cran()
 
 	mtcars_upsample <- dplyr::as_tibble(mtcars)
 	mtcars_upsample$vs <- as.factor(mtcars$vs)