Quiet test errors

tidyverse · Aug 28, 2022 · 75fa45e · 75fa45e
1 parent 7006d95
commit 75fa45e
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/utils.r b/R/utils.r
@@ -66,3 +66,11 @@ node_walk_replace <- function(node, old, new) {
     node <- node_cdr(node)
   }
 }
+
+# Stop tests from failing due to new attribute
+# TODO: make this only affect tests
+compare_proxy.data.frame <- function(x, path = "x") {
+  attr(x, "pillar_focus") <- NULL
+  list(object = x, path = path)
+}
+on_load(s3_register("waldo::compare_proxy", "data.frame"))