set.seed(1234)
n_cols <- 10000
mat <- matrix(sample(0:1, n_cols * 10, TRUE, c(0.9, 0.1)), ncol = n_cols)
colnames(mat) <- as.character(seq_len(n_cols))
sparse_mat <- Matrix::Matrix(mat, sparse = TRUE)
res <- coerce_to_sparse_tibble(sparse_mat)
has_sparse_elements(res)
has_sparse_elements(mtcars)
Run the code above in your browser using DataLab