removed magrittr dependencies

resolves #4

DESCRIPTION

@@ -34,4 +34,4 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 Language: en-US
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2

NAMESPACE

@@ -6,6 +6,7 @@ export(coalesce_data)
 export(collapse_comments)
 export(drop_na_all)
 export(drop_uninformative_columns)
+export(duplicates)
 export(if_else2)
 export(only)
 export(replace_na_if)

R/duplicates.R

@@ -10,18 +10,18 @@ duplicates <- function(x, cols = colnames(x)) {
   check_values(cols, "")
   check_names(x, cols)
 
-  x %<>% tibble::as_tibble()
+  x <- tibble::as_tibble(x)
 
-  cols %<>% unique()
+  cols <- unique(cols)
 
   if (!length(cols)) {
     return(x)
   }
 
   y <- x[cols]
-  y <- y[duplicated(y), , drop = FALSE] %>%
-    unique()
-  x %<>% merge(y, by = cols)
-  x %<>% dplyr::as_tibble()
+  y <- y[duplicated(y), , drop = FALSE]
+  y <- unique(y)
+  x <- merge(x, y, by = cols)
+  x <- dplyr::as_tibble(x)
   x
 }

tests/testthat/test-duplicates.R

@@ -1,14 +1,14 @@
 test_that("can read multiple hobo csv file", {
   tib <- dplyr::tibble(x = c(1, 2, 1), y = c(1, 1, 1))
-  expect_identical(ps_duplicates(tib), tib[c(1, 3), ])
-  expect_identical(ps_duplicates(as.data.frame(tib)), tib[c(1, 3), ])
+  expect_identical(duplicates(tib), tib[c(1, 3), ])
+  expect_identical(duplicates(as.data.frame(tib)), tib[c(1, 3), ])
 
   expect_equal(
-    ps_duplicates(data.frame(x = c(1, 2, 1), y = 1:3), "x"),
+    duplicates(data.frame(x = c(1, 2, 1), y = 1:3), "x"),
     dplyr::tibble(x = c(1, 1), y = c(1, 3))
   )
   expect_equal(
-    ps_duplicates(data.frame(x = c(1, 2, 1), y = 1:3), c("x", "y")),
+    duplicates(data.frame(x = c(1, 2, 1), y = 1:3), c("x", "y")),
     dplyr::tibble(x = double(0), y = double(0))
   )
 })