added skips for glmnet when < 3.6.0

Author: topepo

tests/testthat/helper-objects.R

@@ -1,3 +1,5 @@
 ctrl          <- control_parsnip(verbosity = 1, catch = FALSE)
 caught_ctrl   <- control_parsnip(verbosity = 1, catch = TRUE)
 quiet_ctrl    <- control_parsnip(verbosity = 0, catch = TRUE)
+
+run_glmnet <- utils::compareVersion('3.6.0', as.character(getRversion())) < 0

tests/testthat/test_linear_reg_glmnet.R

@@ -20,6 +20,7 @@ no_lambda <- linear_reg(mixture = .3) %>%
 test_that('glmnet execution', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   expect_error(
     res <- fit_xy(
@@ -56,6 +57,7 @@ test_that('glmnet execution', {
 test_that('glmnet prediction, single lambda', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   res_xy <- fit_xy(
     iris_basic,
@@ -86,6 +88,7 @@ test_that('glmnet prediction, single lambda', {
 test_that('glmnet prediction, multiple lambda', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   lams <- c(.01, 0.1)
 
@@ -182,6 +185,7 @@ test_that('glmnet prediction, multiple lambda', {
 test_that('glmnet prediction, all lambda', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   iris_all <- linear_reg(mixture = .3) %>%
     set_engine("glmnet")
@@ -230,6 +234,7 @@ test_that('glmnet prediction, all lambda', {
 test_that('submodel prediction', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   reg_fit <-
     linear_reg() %>%
@@ -272,6 +277,7 @@ test_that('submodel prediction', {
 test_that('error traps', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   expect_error(
     linear_reg() %>%

tests/testthat/test_logistic_reg_glmnet.R

@@ -21,6 +21,7 @@ lc_basic <- logistic_reg() %>% set_engine("glmnet")
 test_that('glmnet execution', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   expect_error(
     res <- fit_xy(
@@ -48,6 +49,7 @@ test_that('glmnet execution', {
 test_that('glmnet prediction, one lambda', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   xy_fit <- fit_xy(
     logistic_reg(penalty = 0.1) %>% set_engine("glmnet"),
@@ -95,6 +97,7 @@ test_that('glmnet prediction, one lambda', {
 test_that('glmnet prediction, mulitiple lambda', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   lams <- c(0.01, 0.1)
 
@@ -158,6 +161,7 @@ test_that('glmnet prediction, mulitiple lambda', {
 test_that('glmnet prediction, no lambda', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   xy_fit <- fit_xy(
     logistic_reg() %>% set_engine("glmnet", nlambda =  11),
@@ -217,6 +221,7 @@ test_that('glmnet prediction, no lambda', {
 test_that('glmnet probabilities, one lambda', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   xy_fit <- fit_xy(
     logistic_reg(penalty = 0.1)  %>% set_engine("glmnet"),
@@ -265,6 +270,7 @@ test_that('glmnet probabilities, one lambda', {
 test_that('glmnet probabilities, mulitiple lambda', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   lams <- c(0.01, 0.1)
 
@@ -329,6 +335,7 @@ test_that('glmnet probabilities, mulitiple lambda', {
 test_that('glmnet probabilities, no lambda', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   xy_fit <- fit_xy(
     logistic_reg()  %>% set_engine("glmnet"),
@@ -389,6 +396,7 @@ test_that('glmnet probabilities, no lambda', {
 test_that('submodel prediction', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   vars <- c("female", "tenure", "total_charges", "phone_service", "monthly_charges")
   class_fit <-

tests/testthat/test_multinom_reg_glmnet.R

@@ -15,6 +15,7 @@ rows <- c(1, 51, 101)
 test_that('glmnet execution', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   expect_error(
     res <- fit_xy(
@@ -43,6 +44,7 @@ test_that('glmnet execution', {
 test_that('glmnet prediction, one lambda', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   xy_fit <- fit_xy(
     multinom_reg(penalty = 0.1) %>% set_engine("glmnet"),
@@ -85,6 +87,7 @@ test_that('glmnet prediction, one lambda', {
 test_that('glmnet probabilities, mulitiple lambda', {
 
   skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
 
   lams <- c(0.01, 0.1)
 
@@ -149,6 +152,9 @@ test_that('glmnet probabilities, mulitiple lambda', {
 })
 
 test_that("class predictions are factors with all levels", {
+  skip_if_not_installed("glmnet")
+  skip_if(run_glmnet)
+
   basic <- multinom_reg() %>% set_engine("glmnet") %>% fit(Species ~ ., data = iris)
   nd <- iris[iris$Species == "setosa", ]
   yhat <- predict(basic, new_data = nd, penalty = .1)

tests/testthat/test_predict_formats.R

@@ -62,6 +62,8 @@ test_that('non-standard levels', {
 
 
 test_that('non-factor classification', {
+  skip_if(run_glmnet)
+
   expect_error(
     logistic_reg() %>%
       set_engine("glm") %>%
@@ -72,6 +74,7 @@ test_that('non-factor classification', {
       set_engine("glm") %>%
       fit(Species ~ ., data = iris %>% mutate(Species = ifelse(Species == "setosa", 1, 0)))
   )
+
   expect_error(
     multinom_reg() %>%
       set_engine("glmnet") %>%