another early exit in prepare_data()

Author: EmilHvitfeldt

R/predict.R

@@ -470,6 +470,10 @@ 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)) {
+    new_data <- sparsevctrs::coerce_to_sparse_matrix(new_data)
+    return(new_data)
+  }
 
   fit_interface <- object$spec$method$fit$interface
   switch(