skip xgb tests

Author: topepo

tests/testthat/test-boost_tree.R

@@ -37,6 +37,7 @@ test_that('argument checks for data dimensions', {
 })
 
 test_that('boost_tree can be fit with 1 predictor if validation is used', {
+  skip_on_cran()
   spec <- boost_tree(trees = 1) %>%
     set_engine("xgboost", validation = 0.5) %>%
     set_mode("regression")
@@ -48,6 +49,7 @@ test_that('boost_tree can be fit with 1 predictor if validation is used', {
 
 test_that("check_args() works", {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   expect_snapshot(
     error = TRUE,

tests/testthat/test-boost_tree_xgboost.R

@@ -9,8 +9,8 @@ hpc_xgboost <-
 # ------------------------------------------------------------------------------
 
 test_that('xgboost execution, classification', {
-
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   ctrl$verbosity <- 0L
 
@@ -80,6 +80,7 @@ test_that('xgboost execution, classification', {
 test_that('xgboost classification prediction', {
 
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   library(xgboost)
 
@@ -130,6 +131,7 @@ bad_rf_reg <-
 test_that('xgboost execution, regression', {
 
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   ctrl$verbosity <- 0L
 
@@ -158,6 +160,7 @@ test_that('xgboost execution, regression', {
 test_that('xgboost regression prediction', {
 
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   ctrl$verbosity <- 0L
 
@@ -189,6 +192,7 @@ test_that('xgboost regression prediction', {
 
 test_that('xgboost alternate objective', {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   ctrl$verbosity <- 0L
 
@@ -224,6 +228,7 @@ test_that('xgboost alternate objective', {
 test_that('submodel prediction', {
 
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   ctrl$verbosity <- 0L
 
@@ -264,6 +269,7 @@ test_that('submodel prediction', {
 
 test_that('validation sets', {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   ctrl$verbosity <- 0L
 
@@ -309,6 +315,7 @@ test_that('validation sets', {
 
 test_that('early stopping', {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   ctrl$verbosity <- 0L
 
@@ -350,6 +357,7 @@ test_that('early stopping', {
 
 test_that('xgboost data conversion', {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   mtcar_x <- mtcars[, -1]
   mtcar_mat <- as.matrix(mtcar_x)
@@ -412,6 +420,7 @@ test_that('xgboost data conversion', {
 
 test_that('xgboost data and sparse matrices', {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   ctrl$verbosity <- 0L
 
@@ -459,6 +468,7 @@ test_that('xgboost data and sparse matrices', {
 test_that('argument checks for data dimensions', {
 
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   ctrl$verbosity <- 0L
 
@@ -489,6 +499,7 @@ test_that('argument checks for data dimensions', {
 test_that("fit and prediction with `event_level`", {
 
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   ctrl$verbosity <- 0L
 
@@ -554,6 +565,7 @@ test_that("fit and prediction with `event_level`", {
 
 test_that("count/proportion parameters", {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   ctrl$verbosity <- 0L
 
@@ -602,6 +614,7 @@ test_that("count/proportion parameters", {
 test_that('interface to param arguments', {
   skip_if_not_installed("xgboost")
   skip_on_os("windows") # some snapshots different on windows (added spaces)
+  skip_on_cran()
 
   ctrl$verbosity <- 0L
 

tests/testthat/test-descriptors.R

@@ -199,6 +199,8 @@ test_that("can be temporarily overriden at evaluation time", {
 
 test_that("system-level descriptor tests", {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
+
   expect_no_condition(
     boost_tree(mode = "regression", mtry = .cols()) %>%
       set_engine("xgboost") %>%

tests/testthat/test-predict_formats.R

@@ -154,6 +154,7 @@ test_that('non-factor classification', {
 
 test_that("predict() works for model fit with fit_xy() (#1166)", {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
 
   spec <- boost_tree() %>%
     set_mode("regression") %>%

tests/testthat/test-sparsevctrs.R

@@ -1,5 +1,7 @@
 test_that("sparse tibble can be passed to `fit() - supported", {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
+
   # Make materialization of sparse vectors throw an error
   # https://r-lib.github.io/sparsevctrs/dev/reference/sparsevctrs_options.html
   withr::local_options("sparsevctrs.verbose_materialize" = 3)
@@ -30,6 +32,8 @@ test_that("sparse tibble can be passed to `fit() - unsupported", {
 
 test_that("sparse matrix can be passed to `fit() - supported", {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
+
   # Make materialization of sparse vectors throw an error
   # https://r-lib.github.io/sparsevctrs/dev/reference/sparsevctrs_options.html
   withr::local_options("sparsevctrs.verbose_materialize" = 3)
@@ -61,6 +65,8 @@ test_that("sparse matrix can be passed to `fit() - unsupported", {
 
 test_that("sparse tibble can be passed to `fit_xy() - supported", {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
+
   # Make materialization of sparse vectors throw an error
   # https://r-lib.github.io/sparsevctrs/dev/reference/sparsevctrs_options.html
   withr::local_options("sparsevctrs.verbose_materialize" = 3)
@@ -90,6 +96,8 @@ test_that("sparse tibble can be passed to `fit_xy() - unsupported", {
 
 test_that("sparse matrices can be passed to `fit_xy() - supported", {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
+
   # Make materialization of sparse vectors throw an error
   # https://r-lib.github.io/sparsevctrs/dev/reference/sparsevctrs_options.html
   withr::local_options("sparsevctrs.verbose_materialize" = 3)
@@ -193,6 +201,8 @@ test_that("sparse matrices can be passed to `predict() - unsupported", {
 
 test_that("sparse data work with xgboost engine", {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
+
   # Make materialization of sparse vectors throw an error
   # https://r-lib.github.io/sparsevctrs/dev/reference/sparsevctrs_options.html
   withr::local_options("sparsevctrs.verbose_materialize" = 3)
@@ -233,6 +243,8 @@ test_that("sparse data work with xgboost engine", {
 
 test_that("to_sparse_data_frame() is used correctly", {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
+
   # Make materialization of sparse vectors throw an error
   # https://r-lib.github.io/sparsevctrs/dev/reference/sparsevctrs_options.html
   withr::local_options("sparsevctrs.verbose_materialize" = 3)
@@ -276,6 +288,8 @@ test_that("to_sparse_data_frame() is used correctly", {
 
 test_that("maybe_sparse_matrix() is used correctly", {
   skip_if_not_installed("xgboost")
+  skip_on_cran()
+
   # Make materialization of sparse vectors throw an error
   # https://r-lib.github.io/sparsevctrs/dev/reference/sparsevctrs_options.html
   withr::local_options("sparsevctrs.verbose_materialize" = 3)