skip dependent tests without modeldata / recipes

tests/testthat/helper-sparsevctrs.R

@@ -2,6 +2,10 @@
 # For sparse tibble testing
 
 sparse_hotel_rates <- function(tibble = FALSE) {
+  if (!rlang::is_installed("modeldata")) {
+    return()
+  }
+
   # 99.2 sparsity
   hotel_rates <- modeldata::hotel_rates
 

tests/testthat/test-broom.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 # ------------------------------------------------------------------------------
 # tidy()
 

tests/testthat/test-butcher.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 test_that("attaches the butcher class", {
   skip_if_not_installed("butcher")
 

tests/testthat/test-extract.R

@@ -1,3 +1,6 @@
+skip_if_not_installed("recipes")
+skip_if_not_installed("modeldata")
+
 data(Chicago, package = "modeldata")
 
 # ------------------------------------------------------------------------------

tests/testthat/test-fit-action-model.R

@@ -32,6 +32,8 @@ test_that("prompt on spec without a loaded implementation (#174)", {
   expect_snapshot(error = TRUE, workflow(spec = mod))
 })
 
+skip_if_not_installed("recipes")
+
 test_that("cannot add two models", {
   mod <- parsnip::linear_reg()
   mod <- parsnip::set_engine(mod, "lm")

tests/testthat/test-fit.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 data("hardhat-example-data", package = "hardhat")
 
 test_that("can `fit()` a workflow with a recipe", {

tests/testthat/test-generics.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 test_that("can compute required packages of a workflow - formula", {
   mod <- parsnip::linear_reg()
   mod <- parsnip::set_engine(mod, "lm")

tests/testthat/test-post-action-tailor.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("tailor")
+
 test_that("can add a postprocessor to a workflow", {
   post <- tailor::tailor()
 

tests/testthat/test-pre-action-case-weights.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 # ------------------------------------------------------------------------------
 # add_case_weights()
 

tests/testthat/test-pre-action-formula.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 test_that("can add a formula to a workflow", {
   workflow <- workflow()
   workflow <- add_formula(workflow, mpg ~ cyl)

tests/testthat/test-pre-action-recipe.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 test_that("can add a recipe to a workflow", {
   rec <- recipes::recipe(mpg ~ cyl, mtcars)
 

tests/testthat/test-pre-action-variables.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 test_that("can add variables to a workflow", {
   wf <- workflow()
   wf <- add_variables(wf, y, c(x1, x2))

tests/testthat/test-predict.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 test_that("can predict from a workflow", {
   mod <- parsnip::linear_reg()
   mod <- parsnip::set_engine(mod, "lm")

tests/testthat/test-printing.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 test_that("can print empty workflow", {
   expect_snapshot(workflow())
 })

tests/testthat/test-pull.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 # ------------------------------------------------------------------------------
 # pull_workflow_preprocessor()
 

tests/testthat/test-sparsevctrs.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 test_that("sparse tibble can be passed to `fit() - recipe", {
   skip_if_not_installed("glmnet")
   # Make materialization of sparse vectors throw an error
@@ -140,7 +142,7 @@ test_that("sparse tibble can be passed to `predict()`", {
     add_model(spec)
 
   wf_fit <- fit(wf_spec, hotel_data)
-  
+
   expect_no_error(predict(wf_fit, hotel_data))
 })
 
@@ -166,7 +168,7 @@ test_that("sparse matrix can be passed to `predict()`", {
   suppressWarnings(
     wf_fit <- fit(wf_spec, hotel_data)
   )
-  
+
   expect_no_warning(predict(wf_fit, hotel_data))
 })
 

tests/testthat/test-workflow.R

@@ -1,3 +1,5 @@
+skip_if_not_installed("recipes")
+
 # ------------------------------------------------------------------------------
 # workflow()