R/are_all_rows_distinct.R

In richelbilderbeek/ncbi_results: Creates Results

Defines functions are_all_rows_distinct

Documented in are_all_rows_distinct

#' Are all rows distinct
#' @param t a tibble
#' @export
are_all_rows_distinct <- function(t) {
  testthat::expect_true(tibble::is_tibble(t))
  nrow(t) == nrow(dplyr::distinct(t))
}