Register waldo comparison proxy for bloom joins (#17)

Author: soodoku

DESCRIPTION

@@ -28,6 +28,7 @@ Suggests:
     knitr (>= 1.11),
     microbenchmark,
     bench,
-    ggplot2
+    ggplot2,
+    waldo
 Config/testthat/edition: 3
 VignetteBuilder: knitr

R/zzz.R

@@ -0,0 +1,15 @@
+.onLoad <- function(libname, pkgname) {
+  if (requireNamespace("waldo", quietly = TRUE)) {
+    registerS3method(
+      "compare_proxy",
+      "bloomjoin",
+      compare_proxy.bloomjoin,
+      envir = asNamespace("waldo")
+    )
+  }
+}
+
+compare_proxy.bloomjoin <- function(x, path, ...) {
+  x <- strip_bloomjoin_attributes(x)
+  NextMethod()
+}