add comment about what sparsevctrs.verbose_materialize does

Author: EmilHvitfeldt

tests/testthat/test-sparsevctrs.R

@@ -1,5 +1,7 @@
 test_that("sparse tibble can be passed to `fit() - supported", {
   skip_if_not_installed("xgboost")
+  # 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)
 
   hotel_data <- sparse_hotel_rates(tibble = TRUE)
@@ -28,6 +30,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")
+  # 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)
 
   hotel_data <- sparse_hotel_rates()
@@ -57,6 +61,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")
+  # 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)
 
   hotel_data <- sparse_hotel_rates(tibble = TRUE)
@@ -84,6 +90,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")
+  # 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)
 
   hotel_data <- sparse_hotel_rates()
@@ -112,6 +120,8 @@ test_that("sparse matrices can be passed to `fit_xy() - unsupported", {
 
 test_that("sparse tibble can be passed to `predict() - supported", {
   skip_if_not_installed("ranger")
+  # 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)
 
   hotel_data <- sparse_hotel_rates(tibble = TRUE)
@@ -147,6 +157,8 @@ test_that("sparse tibble can be passed to `predict() - unsupported", {
 
 test_that("sparse matrices can be passed to `predict() - supported", {
   skip_if_not_installed("ranger")
+  # 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)
 
   hotel_data <- sparse_hotel_rates()
@@ -181,6 +193,8 @@ test_that("sparse matrices can be passed to `predict() - unsupported", {
 
 test_that("sparse data work with xgboost engine", {
   skip_if_not_installed("xgboost")
+  # 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)
 
   spec <- boost_tree() %>%
@@ -219,6 +233,8 @@ test_that("sparse data work with xgboost engine", {
 
 test_that("to_sparse_data_frame() is used correctly", {
   skip_if_not_installed("xgboost")
+  # 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)
 
   local_mocked_bindings(
@@ -260,6 +276,8 @@ test_that("to_sparse_data_frame() is used correctly", {
 
 test_that("maybe_sparse_matrix() is used correctly", {
   skip_if_not_installed("xgboost")
+  # 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)
 
   local_mocked_bindings(