R/unique.R

In term: Create, Manipulate and Query Parameter Terms

#' @export
unique.term <- function(x, incomparables = FALSE, ...) {
  # Custom implementation necessary for normalization
  as_term(unique(as_term_rcrd(x), incomparables = incomparables, ...))
}

#' @export
unique.term_rcrd <- function(x, incomparables = FALSE, ...) {
  chk_false(incomparables)
  chk_unused(...)
  x[!duplicated(as.data.frame(x))]
}