feat: added method for dplyr::distinct(), closes #63

tilltnet · Feb 1, 2024 · ea6c3ff · ea6c3ff
1 parent ea51d46
commit ea6c3ff
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -22,6 +22,7 @@ S3method(as_tibble,egor)
 S3method(clustered_graphs,data.frame)
 S3method(clustered_graphs,egor)
 S3method(clustered_graphs,list)
+S3method(distinct,egor)
 S3method(distinct_all,egor)
 S3method(distinct_at,egor)
 S3method(distinct_if,egor)

diff --git a/R/dplyr_methods.R b/R/dplyr_methods.R
@@ -945,6 +945,18 @@ append_cols <- function(.egor, ...) {
 
 # distinct ----------------------------------------------------------------
 
+#' @export
+#' @noRd
+#' @method distinct egor
+distinct.egor <- function(.tbl,
+                              .funs = list(),
+                              ...,
+                              .keep_all = FALSE) {
+  result <-
+    distinct(.tbl[[attr(.tbl, "active")]], .funs = list(), ..., .keep_all = FALSE)
+  return_egor_with_result(.tbl, result)
+}
+
 #' @export
 #' @noRd
 #' @method distinct_all egor