R/are_all_unique.R

In richelbilderbeek/sprentrez: Do Big Rentrez Queries

Defines functions are_all_unique

Documented in are_all_unique

#' Tests if all elements are unique
#' @param x the elements to be tested
#' @export
are_all_unique <- function(x) {
  testthat::expect_true(length(x) > 0)
  testthat::expect_equal(0, sum(is.na(x)))
  length(x) == length(unique(x))
}