no need for purrr

christopherkenny · Jun 30, 2024 · 0b876c1 · 0b876c1
1 parent ed0abc9
commit 0b876c1
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -33,8 +33,7 @@ Imports:
     stringr,
     tibble,
     tidyr,
-    tinytiger,
-    purrr
+    tinytiger
 Depends: 
     R (>= 4.0.0)
 Suggests:

diff --git a/R/datatables.R b/R/datatables.R
@@ -175,8 +175,8 @@ block2prec <- function(block_table, matches, geometry = FALSE) {
         NA
       }
     }) |> 
-      purrr::set_names(names(ret)) |>
-      purrr::discard(function(x) is.na(x))
+      stats::setNames(names(ret)) |>
+      Filter(function(x) !is.na(x))
 
     ret <- tidyr::complete(
       data = ret, matches_id = seq_len(nrow_to),