set.seed(1234)
mat <- matrix(sample(0:1, 100, TRUE, c(0.9, 0.1)), nrow = 10)
colnames(mat) <- letters[1:10]
sparse_mat <- Matrix::Matrix(mat, sparse = TRUE)
sparse_mat
res <- coerce_to_sparse_tibble(sparse_mat)
res
# All columns are sparse
vapply(res, is_sparse_vector, logical(1))
Run the code above in your browser using DataLab