delete leftover function

EmilHvitfeldt · EmilHvitfeldt · commit 3bf37b5f3cb5 · 2024-10-04T14:27:25.000-07:00
diff --git a/R/sparsevctrs.R b/R/sparsevctrs.R
@@ -37,10 +37,6 @@ to_sparse_data_frame <- function(x, object, call = rlang::caller_env()) {
   x
 }
 
-sparsevctrs::has_sparse_elements <- function(x) {
-  any(vapply(x, sparsevctrs::is_sparse_vector, logical(1)))
-}
-
 is_sparse_matrix <- function(x) {
   methods::is(x, "sparseMatrix")
 }

Original file line number	Diff line number	Diff line change
`@@ -37,10 +37,6 @@ to_sparse_data_frame <- function(x, object, call = rlang::caller_env()) {`
`37`	`37`	`x`
`38`	`38`	`}`
`39`	`39`
`40`		`-sparsevctrs::has_sparse_elements <- function(x) {`
`41`		`- any(vapply(x, sparsevctrs::is_sparse_vector, logical(1)))`
`42`		`-}`
`43`		`-`
`44`	`40`	`is_sparse_matrix <- function(x) {`
`45`	`41`	`methods::is(x, "sparseMatrix")`
`46`	`42`	`}`