pass call through to_sparse_data_frame()

Author: EmilHvitfeldt

R/sparsevctrs.R

@@ -1,4 +1,4 @@
-to_sparse_data_frame <- function(x, object) {
+to_sparse_data_frame <- function(x, object, call = rlang::caller_env()) {
   if (is_sparse_matrix(x)) {
     if (allow_sparse(object)) {
       x <- sparsevctrs::coerce_to_sparse_data_frame(x)
@@ -8,8 +8,10 @@ to_sparse_data_frame <- function(x, object) {
       }
 
       cli::cli_abort(
-      "{.arg x} is a sparse matrix, but {.fn {class(object)[1]}} with
-       engine {.code {object$engine}} doesn't accept that.")
+        "{.arg x} is a sparse matrix, but {.fn {class(object)[1]}} with
+        engine {.code {object$engine}} doesn't accept that.",
+        call = call
+      )
     }
   } else if (is.data.frame(x)) {
     x <- materialize_sparse_tibble(x, object, "x")

tests/testthat/_snaps/sparsevctrs.md

@@ -19,7 +19,7 @@
     Code
       lm_fit <- fit_xy(spec, x = hotel_data[1:100, -1], y = hotel_data[1:100, 1])
     Condition
-      Error in `to_sparse_data_frame()`:
+      Error in `fit_xy()`:
       ! `x` is a sparse matrix, but `linear_reg()` with engine `lm` doesn't accept that.
 
 # sparse matrices can not be passed to `fit()
@@ -44,7 +44,7 @@
     Code
       predict(lm_fit, sparse_mtcars)
     Condition
-      Error in `to_sparse_data_frame()`:
+      Error in `predict()`:
       ! `x` is a sparse matrix, but `linear_reg()` with engine `lm` doesn't accept that.
 
 # to_sparse_data_frame() is used correctly