add as_sparse_logical()

NAMESPACE

@@ -3,6 +3,7 @@
 export(as_sparse_character)
 export(as_sparse_double)
 export(as_sparse_integer)
+export(as_sparse_logical)
 export(coerce_to_sparse_data_frame)
 export(coerce_to_sparse_matrix)
 export(coerce_to_sparse_tibble)

R/coerce-vector.R

@@ -82,4 +82,23 @@ as_sparse_character <- function(x, default = "") {
     length = length(x),
     default = default
   )
+}
+
+#' @rdname coerce-vector
+#' @export
+as_sparse_logical <- function(x, default = FALSE) {
+  if (is_sparse_logical(x)) {
+    return(x)
+  }
+
+  check_bool(default)
+
+  index <- which(x != default | is.na(x))
+
+  sparse_logical(
+    values = x[index],
+    positions = index,
+    length = length(x),
+    default = default
+  )
 }

tests/testthat/test-coerce-vector.R

@@ -32,3 +32,10 @@ test_that("as_sparse_integer works", {
 
   expect_true(is_sparse_character(x_sparse))
 })
+
+test_that("as_sparse_logical works", {
+  x_dense <- c(FALSE, FALSE, FALSE, FALSE, NA, FALSE, FALSE, FALSE, FALSE, FALSE)
+  x_sparse <- as_sparse_logical(x_dense)
+
+  expect_true(is_sparse_logical(x_sparse))
+})