compact() is no longer used (#180)

r-lib · Jun 26, 2024 · cbc88d0 · cbc88d0
1 parent 405a4ca
commit cbc88d0
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -16,10 +16,6 @@ defer <- function(expr, frame = parent.frame(), after = FALSE) {
 
 `%||%` <- function(a, b) if (is.null(a)) b else a
 
-compact <- function(x) {
-  x[!vapply(x, is.null, logical(1))]
-}
-
 env_var_is_true <- function(x) {
   isTRUE(as.logical(Sys.getenv(x, "false")))
 }