diff --git a/R/standalone-purrr.R b/R/standalone-purrr.R
index 9cb36e941..fde7ad977 100644
--- 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) {