Fix assert_unique()

tesselle · Jan 16, 2023 · e5805ac · e5805ac
1 parent d43f43f
commit e5805ac
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 5 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,7 @@
 
 ## Bugfixes & changes
 * Remove deprecated methods.
+* Remove unused argument in `assert_unique()`.
 
 # arkhe 1.0.0
 ## New classes and methods

diff --git a/R/assert.R b/R/assert.R
@@ -257,7 +257,6 @@ assert_colnames <- function(x, expected) {
 #' missing (`NA`, `NaN`) or infinite (`Inf`) value.
 #' * `assert_unique()` checks if an object contains duplicated elements.
 #' @param x An object to be checked.
-#' @param expected An appropriate expected value.
 #' @return
 #'  Throws an error, if any, and returns `x` invisibly otherwise.
 #' @author N. Frerebeau
@@ -294,7 +293,7 @@ assert_infinite <- function(x) {
 
 #' @export
 #' @rdname check-data
-assert_unique <- function(x, expected) {
+assert_unique <- function(x) {
   arg <- deparse(substitute(x))
   if (has_duplicates(x)) {
     msg <- sprintf("Elements of %s must be unique.", sQuote(arg))

diff --git a/man/check-data.Rd b/man/check-data.Rd