x_sparse <- sparse_double(c(pi, 5, 0.1), c(2, 5, 10), 10)
x_dense <- c(0, pi, 0, 0, 0.5, 0, 0, 0, 0, 0.1)
is_sparse_vector(x_sparse)
is_sparse_vector(x_dense)
is_sparse_double(x_sparse)
is_sparse_double(x_dense)
is_sparse_character(x_sparse)
is_sparse_character(x_dense)
# Forced materialization
is_sparse_vector(x_sparse[])
Run the code above in your browser using DataLab