Add !=.agg_vec

tidyverts · Sep 23, 2020 · db3fece · db3fece
1 parent f98af16
commit db3fece
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method("!=",agg_vec)
 S3method("$<-",mdl_df)
 S3method("==",agg_vec)
 S3method("[",dcmp_ts)

diff --git a/R/aggregate.R b/R/aggregate.R
@@ -303,6 +303,11 @@ Hint: If you're trying to compare aggregated values, use `is_aggregated()`.")
   (e1$agg & e2$agg) | vec_equal(e1$x, e2$x, na_equal = TRUE)
 }
 
+#' @export
+`!=.agg_vec` <- function(e1, e2) {
+  !(e1 == e2)
+}
+
 #' @export
 is.na.agg_vec <- function(x) {
   is.na(field(x, "x")) & !field(x, "agg")