sparse_tbl <- lapply(1:10, function(x) sparse_double(x, x, length = 10))
names(sparse_tbl) <- letters[1:10]
sparse_tbl <- as.data.frame(sparse_tbl)
sparse_tbl
res <- coerce_to_sparse_matrix(sparse_tbl)
res
Run the code above in your browser using DataLab