Faster standalone compact (#1773)

r-lib · Jan 24, 2025 · b53ac84 · b53ac84
1 parent fa4fcbd
commit b53ac84
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/standalone-purrr.R b/R/standalone-purrr.R
@@ -129,7 +129,7 @@ map_if <- function(.x, .p, .f, ...) {
 }
 
 compact <- function(.x) {
-  Filter(length, .x)
+  .x[as.logical(lengths(.x))]
 }
 
 transpose <- function(.l) {