is_sparse_tibble -> sparsevctrs::has_sparse_ele

Author: EmilHvitfeldt

R/convert_data.R

@@ -48,7 +48,7 @@
     )
   }
 
-  if (is_sparse_tibble(data)) {
+  if (sparsevctrs::has_sparse_elements(data)) {
     cli::cli_abort(
       "Sparse data cannot be used with formula interface. Please use 
       {.fn fit_xy} instead."
@@ -417,7 +417,7 @@ maybe_sparse_matrix <- function(x) {
     return(x)
   }
 
-  if (is_sparse_tibble(x)) {
+  if (sparsevctrs::has_sparse_elements(x)) {
     res <- sparsevctrs::coerce_to_sparse_matrix(x)
   } else {
     res <- as.matrix(x)

R/fit_helpers.R

@@ -131,7 +131,7 @@ form_xy <- function(object, control, env,
   remove_intercept <- encoding_info %>% dplyr::pull(remove_intercept)
   allow_sparse_x <- encoding_info %>% dplyr::pull(allow_sparse_x)
 
-  if (allow_sparse_x && is_sparse_tibble(env$data)) {
+  if (allow_sparse_x && sparsevctrs::has_sparse_elements(env$data)) {
     target <- "dgCMatrix"
   }
 

R/predict.R

@@ -470,7 +470,7 @@ prepare_data <- function(object, new_data) {
   if (allow_sparse(object) && inherits(new_data, "dgCMatrix")) {
     return(new_data)
   }
-  if (allow_sparse(object) && is_sparse_tibble(new_data)) {
+  if (allow_sparse(object) && sparsevctrs::has_sparse_elements(new_data)) {
     new_data <- sparsevctrs::coerce_to_sparse_matrix(new_data)
     return(new_data)
   }

R/sparsevctrs.R

@@ -37,7 +37,7 @@ to_sparse_data_frame <- function(x, object, call = rlang::caller_env()) {
   x
 }
 
-is_sparse_tibble <- function(x) {
+sparsevctrs::has_sparse_elements <- function(x) {
   any(vapply(x, sparsevctrs::is_sparse_vector, logical(1)))
 }
 
@@ -46,7 +46,7 @@ is_sparse_matrix <- function(x) {
 }
 
 materialize_sparse_tibble <- function(x, object, input) {
-  if (is_sparse_tibble(x) && (!allow_sparse(object))) {
+  if (sparsevctrs::has_sparse_elements(x) && (!allow_sparse(object))) {
     if (inherits(object, "model_fit")) {
       object <- object$spec
     }

tests/testthat/test-sparsevctrs.R

@@ -282,7 +282,7 @@ test_that("maybe_sparse_matrix() is used correctly", {
 
   local_mocked_bindings(
     maybe_sparse_matrix = function(x) {
-      if (is_sparse_tibble(x)) {
+      if (sparsevctrs::has_sparse_elements(x)) {
         stop("sparse vectors detected")
       } else {
         stop("no sparse vectors detected")