==.Table

kszucs · Sep 27, 2019 · d318a66 · d318a66
1 parent 7f1c184
commit d318a66
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/r/NAMESPACE b/r/NAMESPACE
@@ -9,6 +9,7 @@ S3method("==",Field)
 S3method("==",Message)
 S3method("==",RecordBatch)
 S3method("==",Schema)
+S3method("==",Table)
 S3method("[",RecordBatch)
 S3method("[",Table)
 S3method("[[",RecordBatch)

diff --git a/r/R/table.R b/r/R/table.R
@@ -124,12 +124,17 @@ Table <- R6Class("Table", inherit = Object,
         shared_ptr(Table, Table__select(self, indices))
       }
     },
+
     Slice = function(offset, length = NULL) {
       if (is.null(length)) {
         shared_ptr(Table, Table__Slice1(self, offset))
       } else {
         shared_ptr(Table, Table__Slice2(self, offset, length))
       }
+    },
+
+    Equals = function(other) {
+      Table__Equals(self, other)
     }
   ),
 
@@ -141,6 +146,11 @@ Table <- R6Class("Table", inherit = Object,
   )
 )
 
+#' @export
+`==.Table` <- function(x, y) {
+  x$Equals(y)
+}
+
 Table$create <- function(..., schema = NULL){
   dots <- list2(...)
   # making sure there are always names