Running 'testthat.R' [27s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > if (requireNamespace("testthat", quietly = TRUE)) {
  +   library(checkmate)
  +   library(testthat)
  +   library(mlr3spatiotempcv)
  + 
  +   test_check("mlr3spatiotempcv")
  + }
  Starting 2 test processes
  == Skipped tests ===============================================================
  * On CRAN (13)
  * On Windows (4)
  * The R graphics engine is too old.
  Please update to R 4.1.0 and regenerate the vdiffr snapshots. (10)
  
  == Failed tests ================================================================
  -- Error (test-ResamplingRepeatedSpCVBlock.R:4:3): folds can be printed --------
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-rsp$instantiate(task)
    2.   \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__instantiate(...)
    3.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    4.       \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__.sample(...)
    5.         \-mlr3misc::map(...)
    6.           \-base::lapply(.x, .f, ...)
    7.             \-mlr3spatiotempcv:::FUN(X[[i]], ...)
    8.               \-mlr3spatiotempcv:::create_blocks(coords, self$param_set$values$range[i])
    9.                 +-utils::capture.output(...)
   10.                 | \-utils:::evalVis(expr)
   11.                 |   +-base::withVisible(eval(expr, pf))
   12.                 |   \-base::eval(expr, pf)
   13.                 |     \-base::eval(expr, pf)
   14.                 +-base::suppressMessages(...)
   15.                 | \-base::withCallingHandlers(...)
   16.                 +-base::suppressWarnings(...)
   17.                 | \-base::withCallingHandlers(...)
   18.                 \-blockCV::spatialBlock(...)
   19.                   +-net[speciesData, ]
   20.                   \-sf:::`[.sf`(net, speciesData, )
   21.                     +-base::lengths(op(x, i, ...))
   22.                     +-sf:::op(x, i, ...)
   23.                     \-sf:::st_intersects.sf(x, i, ...)
   24.                       \-sf:::st_geos_binop(...)
   25.                         \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-ResamplingRepeatedSpCVBlock.R:12:3): reps can be printed --------
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-rsp$instantiate(task)
    2.   \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__instantiate(...)
    3.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    4.       \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__.sample(...)
    5.         \-mlr3misc::map(...)
    6.           \-base::lapply(.x, .f, ...)
    7.             \-mlr3spatiotempcv:::FUN(X[[i]], ...)
    8.               \-mlr3spatiotempcv:::create_blocks(coords, self$param_set$values$range[i])
    9.                 +-utils::capture.output(...)
   10.                 | \-utils:::evalVis(expr)
   11.                 |   +-base::withVisible(eval(expr, pf))
   12.                 |   \-base::eval(expr, pf)
   13.                 |     \-base::eval(expr, pf)
   14.                 +-base::suppressMessages(...)
   15.                 | \-base::withCallingHandlers(...)
   16.                 +-base::suppressWarnings(...)
   17.                 | \-base::withCallingHandlers(...)
   18.                 \-blockCV::spatialBlock(...)
   19.                   +-net[speciesData, ]
   20.                   \-sf:::`[.sf`(net, speciesData, )
   21.                     +-base::lengths(op(x, i, ...))
   22.                     +-sf:::op(x, i, ...)
   23.                     \-sf:::st_intersects.sf(x, i, ...)
   24.                       \-sf:::st_geos_binop(...)
   25.                         \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-ResamplingRepeatedSpCVBlock.R:20:3): resampling iterations equals folds * repeats --
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-rsp$instantiate(task)
    2.   \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__instantiate(...)
    3.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    4.       \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__.sample(...)
    5.         \-mlr3misc::map(...)
    6.           \-base::lapply(.x, .f, ...)
    7.             \-mlr3spatiotempcv:::FUN(X[[i]], ...)
    8.               \-mlr3spatiotempcv:::create_blocks(coords, self$param_set$values$range[i])
    9.                 +-utils::capture.output(...)
   10.                 | \-utils:::evalVis(expr)
   11.                 |   +-base::withVisible(eval(expr, pf))
   12.                 |   \-base::eval(expr, pf)
   13.                 |     \-base::eval(expr, pf)
   14.                 +-base::suppressMessages(...)
   15.                 | \-base::withCallingHandlers(...)
   16.                 +-base::suppressWarnings(...)
   17.                 | \-base::withCallingHandlers(...)
   18.                 \-blockCV::spatialBlock(...)
   19.                   +-net[speciesData, ]
   20.                   \-sf:::`[.sf`(net, speciesData, )
   21.                     +-base::lengths(op(x, i, ...))
   22.                     +-sf:::op(x, i, ...)
   23.                     \-sf:::st_intersects.sf(x, i, ...)
   24.                       \-sf:::st_geos_binop(...)
   25.                         \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-ResamplingRepeatedSpCVBlock.R:45:3): no error when length(range) == repeats --
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. +-testthat::expect_silent(rsp$instantiate(task))
    2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. |   +-testthat:::.capture(...)
    4. |   | +-withr::with_output_sink(...)
    5. |   | | \-base::force(code)
    6. |   | +-base::withCallingHandlers(...)
    7. |   | \-base::withVisible(code)
    8. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. \-rsp$instantiate(task)
   10.   \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__instantiate(...)
   11.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
   12.       \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__.sample(...)
   13.         \-mlr3misc::map(...)
   14.           \-base::lapply(.x, .f, ...)
   15.             \-mlr3spatiotempcv:::FUN(X[[i]], ...)
   16.               \-mlr3spatiotempcv:::create_blocks(coords, self$param_set$values$range[i])
   17.                 +-utils::capture.output(...)
   18.                 | \-utils:::evalVis(expr)
   19.                 |   +-base::withVisible(eval(expr, pf))
   20.                 |   \-base::eval(expr, pf)
   21.                 |     \-base::eval(expr, pf)
   22.                 +-base::suppressMessages(...)
   23.                 | \-base::withCallingHandlers(...)
   24.                 +-base::suppressWarnings(...)
   25.                 | \-base::withCallingHandlers(...)
   26.                 \-blockCV::spatialBlock(...)
   27.                   +-net[speciesData, ]
   28.                   \-sf:::`[.sf`(net, speciesData, )
   29.                     +-base::lengths(op(x, i, ...))
   30.                     +-sf:::op(x, i, ...)
   31.                     \-sf:::st_intersects.sf(x, i, ...)
   32.                       \-sf:::st_geos_binop(...)
   33.                         \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-ResamplingRepeatedSpCVBlock.R:63:3): mlr3spatiotempcv indices are the same as blockCV indices: cols and rows --
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-rsmp$instantiate(task)
    2.   \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__instantiate(...)
    3.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    4.       \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__.sample(...)
    5.         \-mlr3misc::map(...)
    6.           \-base::lapply(.x, .f, ...)
    7.             \-mlr3spatiotempcv:::FUN(X[[i]], ...)
    8.               \-mlr3spatiotempcv:::create_blocks(coords, self$param_set$values$range[i])
    9.                 +-utils::capture.output(...)
   10.                 | \-utils:::evalVis(expr)
   11.                 |   +-base::withVisible(eval(expr, pf))
   12.                 |   \-base::eval(expr, pf)
   13.                 |     \-base::eval(expr, pf)
   14.                 +-base::suppressMessages(...)
   15.                 | \-base::withCallingHandlers(...)
   16.                 +-base::suppressWarnings(...)
   17.                 | \-base::withCallingHandlers(...)
   18.                 \-blockCV::spatialBlock(...)
   19.                   +-net[speciesData, ]
   20.                   \-sf:::`[.sf`(net, speciesData, )
   21.                     +-base::lengths(op(x, i, ...))
   22.                     +-sf:::op(x, i, ...)
   23.                     \-sf:::st_intersects.sf(x, i, ...)
   24.                       \-sf:::st_geos_binop(...)
   25.                         \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-ResamplingSpCVBlock.R:4:3): resampling iterations equals folds --
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-rsp$instantiate(task)
    2.   \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__instantiate(...)
    3.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    4.       \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__.sample(...)
    5.         +-utils::capture.output(...)
    6.         | \-utils:::evalVis(expr)
    7.         |   +-base::withVisible(eval(expr, pf))
    8.         |   \-base::eval(expr, pf)
    9.         |     \-base::eval(expr, pf)
   10.         +-base::suppressMessages(...)
   11.         | \-base::withCallingHandlers(...)
   12.         \-blockCV::spatialBlock(...)
   13.           +-net[speciesData, ]
   14.           \-sf:::`[.sf`(net, speciesData, )
   15.             +-base::lengths(op(x, i, ...))
   16.             +-sf:::op(x, i, ...)
   17.             \-sf:::st_intersects.sf(x, i, ...)
   18.               \-sf:::st_geos_binop(...)
   19.                 \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-ResamplingSpCVBlock.R:49:3): mlr3spatiotempcv indices are the same as blockCV indices: selection = checkerboard --
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-rsmp$instantiate(task)
    2.   \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__instantiate(...)
    3.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    4.       \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__.sample(...)
    5.         +-utils::capture.output(...)
    6.         | \-utils:::evalVis(expr)
    7.         |   +-base::withVisible(eval(expr, pf))
    8.         |   \-base::eval(expr, pf)
    9.         |     \-base::eval(expr, pf)
   10.         +-base::suppressMessages(...)
   11.         | \-base::withCallingHandlers(...)
   12.         \-blockCV::spatialBlock(...)
   13.           +-net[speciesData, ]
   14.           \-sf:::`[.sf`(net, speciesData, )
   15.             +-base::lengths(op(x, i, ...))
   16.             +-sf:::op(x, i, ...)
   17.             \-sf:::st_intersects.sf(x, i, ...)
   18.               \-sf:::st_geos_binop(...)
   19.                 \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-ResamplingSpCVBlock.R:72:3): mlr3spatiotempcv indices are the same as blockCV indices: cols and rows --
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-rsmp$instantiate(task)
    2.   \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__instantiate(...)
    3.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    4.       \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__.sample(...)
    5.         +-utils::capture.output(...)
    6.         | \-utils:::evalVis(expr)
    7.         |   +-base::withVisible(eval(expr, pf))
    8.         |   \-base::eval(expr, pf)
    9.         |     \-base::eval(expr, pf)
   10.         +-base::suppressMessages(...)
   11.         | \-base::withCallingHandlers(...)
   12.         \-blockCV::spatialBlock(...)
   13.           +-net[speciesData, ]
   14.           \-sf:::`[.sf`(net, speciesData, )
   15.             +-base::lengths(op(x, i, ...))
   16.             +-sf:::op(x, i, ...)
   17.             \-sf:::st_intersects.sf(x, i, ...)
   18.               \-sf:::st_geos_binop(...)
   19.                 \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-ResamplingSpCVBlock.R:111:3): mlr3spatiotempcv indices are the same as blockCV indices: rasterLayer --
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-rsmp1$instantiate(task)
    2.   \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__instantiate(...)
    3.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    4.       \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__.sample(...)
    5.         +-utils::capture.output(...)
    6.         | \-utils:::evalVis(expr)
    7.         |   +-base::withVisible(eval(expr, pf))
    8.         |   \-base::eval(expr, pf)
    9.         |     \-base::eval(expr, pf)
   10.         +-base::suppressMessages(...)
   11.         | \-base::withCallingHandlers(...)
   12.         \-blockCV::spatialBlock(...)
   13.           +-net[speciesData, ]
   14.           \-sf:::`[.sf`(net, speciesData, )
   15.             +-base::lengths(op(x, i, ...))
   16.             +-sf:::op(x, i, ...)
   17.             \-sf:::st_intersects.sf(x, i, ...)
   18.               \-sf:::st_geos_binop(...)
   19.                 \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-1-autoplot.R:124:3): plot() works for 'spcv_block' --------------
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-mlr3spatiotempcv:::prepare_autoplot(...)
    2.   \-rsp$instantiate(task) d:\RCompile\CRANpkg\local\4.0\mlr3spatiotempcv.Rcheck\tests\testthat\helper_autoplot.R:9:2
    3.     \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__instantiate(...)
    4.       \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    5.         \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__.sample(...)
    6.           +-utils::capture.output(...)
    7.           | \-utils:::evalVis(expr)
    8.           |   +-base::withVisible(eval(expr, pf))
    9.           |   \-base::eval(expr, pf)
   10.           |     \-base::eval(expr, pf)
   11.           +-base::suppressMessages(...)
   12.           | \-base::withCallingHandlers(...)
   13.           \-blockCV::spatialBlock(...)
   14.             +-net[speciesData, ]
   15.             \-sf:::`[.sf`(net, speciesData, )
   16.               +-base::lengths(op(x, i, ...))
   17.               +-sf:::op(x, i, ...)
   18.               \-sf:::st_intersects.sf(x, i, ...)
   19.                 \-sf:::st_geos_binop(...)
   20.                   \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-1-autoplot.R:144:3): plot() works for 'repeated_spcv_block' -----
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-mlr3spatiotempcv:::prepare_autoplot(...)
    2.   \-rsp$instantiate(task) d:\RCompile\CRANpkg\local\4.0\mlr3spatiotempcv.Rcheck\tests\testthat\helper_autoplot.R:9:2
    3.     \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__instantiate(...)
    4.       \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    5.         \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__.sample(...)
    6.           \-mlr3misc::map(...)
    7.             \-base::lapply(.x, .f, ...)
    8.               \-mlr3spatiotempcv:::FUN(X[[i]], ...)
    9.                 \-mlr3spatiotempcv:::create_blocks(coords, self$param_set$values$range[i])
   10.                   +-utils::capture.output(...)
   11.                   | \-utils:::evalVis(expr)
   12.                   |   +-base::withVisible(eval(expr, pf))
   13.                   |   \-base::eval(expr, pf)
   14.                   |     \-base::eval(expr, pf)
   15.                   +-base::suppressMessages(...)
   16.                   | \-base::withCallingHandlers(...)
   17.                   +-base::suppressWarnings(...)
   18.                   | \-base::withCallingHandlers(...)
   19.                   \-blockCV::spatialBlock(...)
   20.                     +-net[speciesData, ]
   21.                     \-sf:::`[.sf`(net, speciesData, )
   22.                       +-base::lengths(op(x, i, ...))
   23.                       +-sf:::op(x, i, ...)
   24.                       \-sf:::st_intersects.sf(x, i, ...)
   25.                         \-sf:::st_geos_binop(...)
   26.                           \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-1-autoplot.R:178:3): autplot blockCV shows correct blocks -------
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-rsmp$instantiate(task)
    2.   \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__instantiate(...)
    3.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    4.       \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__.sample(...)
    5.         +-utils::capture.output(...)
    6.         | \-utils:::evalVis(expr)
    7.         |   +-base::withVisible(eval(expr, pf))
    8.         |   \-base::eval(expr, pf)
    9.         |     \-base::eval(expr, pf)
   10.         +-base::suppressMessages(...)
   11.         | \-base::withCallingHandlers(...)
   12.         \-blockCV::spatialBlock(...)
   13.           +-net[speciesData, ]
   14.           \-sf:::`[.sf`(net, speciesData, )
   15.             +-base::lengths(op(x, i, ...))
   16.             +-sf:::op(x, i, ...)
   17.             \-sf:::st_intersects.sf(x, i, ...)
   18.               \-sf:::st_geos_binop(...)
   19.                 \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-1-autoplot.R:199:3): autplot blockCV shows correct blocks for repeated_cv --
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-rsmp$instantiate(task)
    2.   \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__instantiate(...)
    3.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    4.       \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__.sample(...)
    5.         \-mlr3misc::map(...)
    6.           \-base::lapply(.x, .f, ...)
    7.             \-mlr3spatiotempcv:::FUN(X[[i]], ...)
    8.               \-mlr3spatiotempcv:::create_blocks(coords, self$param_set$values$range[i])
    9.                 +-utils::capture.output(...)
   10.                 | \-utils:::evalVis(expr)
   11.                 |   +-base::withVisible(eval(expr, pf))
   12.                 |   \-base::eval(expr, pf)
   13.                 |     \-base::eval(expr, pf)
   14.                 +-base::suppressMessages(...)
   15.                 | \-base::withCallingHandlers(...)
   16.                 +-base::suppressWarnings(...)
   17.                 | \-base::withCallingHandlers(...)
   18.                 \-blockCV::spatialBlock(...)
   19.                   +-net[speciesData, ]
   20.                   \-sf:::`[.sf`(net, speciesData, )
   21.                     +-base::lengths(op(x, i, ...))
   22.                     +-sf:::op(x, i, ...)
   23.                     \-sf:::st_intersects.sf(x, i, ...)
   24.                       \-sf:::st_geos_binop(...)
   25.                         \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-mlr3pipelines-graph-integration.R:8:3): spcv methods work in a Graph Learner --
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-mlr3misc::map_lgl(...)
    2.   \-mlr3misc:::map_mold(.x, .f, NA, ...)
    3.     \-base::vapply(.x, .f, FUN.VALUE = .value, USE.NAMES = FALSE, ...)
    4.       \-mlr3spatiotempcv:::FUN(X[[i]], ...)
    5.         \-mlr3spatiotempcv:::test_graph_learner(tsk("ecuador"), x)
    6.           \-mlr3tuning::TuningInstanceSingleCrit$new(...) d:\RCompile\CRANpkg\local\4.0\mlr3spatiotempcv.Rcheck\tests\testthat\helper.R:226:2
    7.             \-mlr3tuning:::initialize(...)
    8.               \-mlr3tuning:::.__TuningInstanceSingleCrit__initialize(...)
    9.                 \-ObjectiveTuning$new(...)
   10.                   \-mlr3tuning:::initialize(...)
   11.                     \-mlr3tuning:::.__ObjectiveTuning__initialize(...)
   12.                       \-self$resampling$instantiate(self$task)
   13.                         \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__instantiate(...)
   14.                           \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
   15.                             \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__.sample(...)
   16.                               +-utils::capture.output(...)
   17.                               | \-utils:::evalVis(expr)
   18.                               |   +-base::withVisible(eval(expr, pf))
   19.                               |   \-base::eval(expr, pf)
   20.                               |     \-base::eval(expr, pf)
   21.                               +-base::suppressMessages(...)
   22.                               | \-base::withCallingHandlers(...)
   23.                               \-blockCV::spatialBlock(...)
   24.                                 +-net[speciesData, ]
   25.                                 \-sf:::`[.sf`(net, speciesData, )
   26.                                   +-base::lengths(op(x, i, ...))
   27.                                   +-sf:::op(x, i, ...)
   28.                                   \-sf:::st_intersects.sf(x, i, ...)
   29.                                     \-sf:::st_geos_binop(...)
   30.                                       \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-mlr_sptcv_generic.R:41:5): train and test set getter functions are working --
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-i$instantiate(task)
    2.   \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__instantiate(...)
    3.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    4.       \-mlr3spatiotempcv:::.__ResamplingSpCVBlock__.sample(...)
    5.         +-utils::capture.output(...)
    6.         | \-utils:::evalVis(expr)
    7.         |   +-base::withVisible(eval(expr, pf))
    8.         |   \-base::eval(expr, pf)
    9.         |     \-base::eval(expr, pf)
   10.         +-base::suppressMessages(...)
   11.         | \-base::withCallingHandlers(...)
   12.         \-blockCV::spatialBlock(...)
   13.           +-net[speciesData, ]
   14.           \-sf:::`[.sf`(net, speciesData, )
   15.             +-base::lengths(op(x, i, ...))
   16.             +-sf:::op(x, i, ...)
   17.             \-sf:::st_intersects.sf(x, i, ...)
   18.               \-sf:::st_geos_binop(...)
   19.                 \-base::stopifnot(st_crs(x) == st_crs(y))
  -- Error (test-mlr_sptcv_generic.R:55:5): train and test set getter functions are working --
  Error: st_crs(x) == st_crs(y) is not TRUE
  Backtrace:
       x
    1. \-i$instantiate(task)
    2.   \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__instantiate(...)
    3.     \-private$.sample(task$row_ids, task$coordinates(), task$extra_args$crs)
    4.       \-mlr3spatiotempcv:::.__ResamplingRepeatedSpCVBlock__.sample(...)
    5.         \-mlr3misc::map(...)
    6.           \-base::lapply(.x, .f, ...)
    7.             \-mlr3spatiotempcv:::FUN(X[[i]], ...)
    8.               \-mlr3spatiotempcv:::create_blocks(coords, self$param_set$values$range[i])
    9.                 +-utils::capture.output(...)
   10.                 | \-utils:::evalVis(expr)
   11.                 |   +-base::withVisible(eval(expr, pf))
   12.                 |   \-base::eval(expr, pf)
   13.                 |     \-base::eval(expr, pf)
   14.                 +-base::suppressMessages(...)
   15.                 | \-base::withCallingHandlers(...)
   16.                 +-base::suppressWarnings(...)
   17.                 | \-base::withCallingHandlers(...)
   18.                 \-blockCV::spatialBlock(...)
   19.                   +-net[speciesData, ]
   20.                   \-sf:::`[.sf`(net, speciesData, )
   21.                     +-base::lengths(op(x, i, ...))
   22.                     +-sf:::op(x, i, ...)
   23.                     \-sf:::st_intersects.sf(x, i, ...)
   24.                       \-sf:::st_geos_binop(...)
   25.                         \-base::stopifnot(st_crs(x) == st_crs(y))
  
  [ FAIL 16 | WARN 10 | SKIP 27 | PASS 208 ]
  Error: Test failures
  Execution halted