remove usage of deprecated rlang squash_if.

mlverse · May 6, 2024 · 3ae0c79 · 3ae0c79
1 parent 5aecf6f
commit 3ae0c79
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/R/events.R b/R/events.R
@@ -31,7 +31,17 @@ as_event.list <- function(x, step, wall_time, ..., name = ".") {
       as_event(obj, step = step, wall_time = wall_time, name = c(name, nm))
     }
   )
-  vec_c(!!!rlang::squash_if(unname(ev), vec_is_list))
+  vec_c(!!!squash_if(unname(ev), vec_is_list))
+}
+
+squash_if <- function(x, predicate) {
+  lapply(x, function(obj) {
+    if (predicate(obj)) {
+      unlist(obj)
+    } else {
+      obj
+    }
+  })
 }
 
 #' @export