added all.equal.Object() that uses ==

kszucs · Sep 27, 2019 · 66c51fd · 66c51fd
1 parent c5549de
commit 66c51fd
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 0 deletions.
diff --git a/r/NAMESPACE b/r/NAMESPACE
@@ -14,6 +14,7 @@ S3method("[",RecordBatch)
 S3method("[",Table)
 S3method("[[",RecordBatch)
 S3method("[[",Table)
+S3method(all,equal.Object)
 S3method(as.data.frame,RecordBatch)
 S3method(as.data.frame,Table)
 S3method(as.raw,Buffer)

diff --git a/r/R/arrow-package.R b/r/R/arrow-package.R
@@ -66,6 +66,11 @@ Object <- R6Class("Object",
 #' @export
 `!=.Object` <- function(lhs, rhs) !(lhs == rhs)
 
+#' @export
+all.equal.Object <- function(target, current, ...) {
+  target == current
+}
+
 shared_ptr <- function(class, xp) {
   if (!shared_ptr_is_null(xp)) class$new(xp)
 }

diff --git a/r/tests/testthat/test-Table.R b/r/tests/testthat/test-Table.R
@@ -211,5 +211,8 @@ test_that("==.Table", {
 
   expect_false(tab1 == tab4)
   expect_false(tab4 == tab1)
+
+  expect_true(all.equal(tab1, tab2))
+  expect_equal(tab1, tab2)
 })