From 75fa45eb212f67a69cf2a5701b5e1dd3b9ee21df Mon Sep 17 00:00:00 2001
From: Hadley Wickham <h.wickham@gmail.com>
Date: Thu, 4 Aug 2022 17:26:48 -0500
Subject: [PATCH] Quiet test errors

---
 R/utils.r | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/R/utils.r b/R/utils.r
index a5c0e80e92..b74107e005 100644
--- 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"))