R/lenu.R

In jinkim3/kim: A Toolkit for Behavioral Scientists

#' lenu: Length of unique values
#'
#' Extract unique elements and get the length of those elements
#'
#' @param x a vector or a data frame or an array or NULL.
#' @return a vector, data frame, or array-like 'x' but with duplicate
#' elements/rows removed.
#' @examples
#' unique(c(10, 3, 7, 10))
#' lenu(c(10, 3, 7, 10))
#' unique(c(10, 3, 7, 10, NA))
#' lenu(c(10, 3, 7, 10, NA))
#' lenu(c("b", "z", "b", "a", NA, NA, NA))
#' @export
lenu <- function(x = NULL) {
  return(length(unique(x)))
}