Quiet test errors

Author: hadley

R/utils.r

@@ -114,3 +114,11 @@ fix_call <- function(expr, call = caller_env()) {
 ...elt2 <- function(i, frame = caller_env()) {
   eval_bare(sym(paste0("..", i)), frame)
 }
+
+# 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"))