perf: faster standalone compact

r-lib · Jan 23, 2025 · ca42ac5 · ca42ac5
1 parent fa4fcbd
commit ca42ac5
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) {