R/not_in.r

In traumar: Calculate Metrics for Trauma System Performance

#' @title Check if Elements Are Not in a Vector
#'
#' @description This function returns a logical vector indicating whether each
#'   element of `x` is not in `y`.
#'
#' @param x A vector of values to be checked.
#'
#' @param y A vector of values to check against.
#'
#' @returns A logical vector of the same length as `x`, where `TRUE` indicates
#'   the corresponding element in `x` is not found in `y`, and `FALSE` indicates
#'   it is found in `y`.
#'
#' @examples
#'
#' # Example vectors
#' x <- c("apple", "banana", "cherry")
#' y <- c("banana", "grape")
#'
#' # Check which elements in `x` are not in `y`
#' x %not_in% y
#'
#' # Example with numeric values
#' a <- c(1, 2, 3, 4, 5)
#' b <- c(2, 4, 6)
#'
#' a %not_in% b
#'
#' @author Nicolas Foss, Ed.D., MS
#'
#' @export
#'
`%not_in%` <- function(x, y) {
  !(x %in% y)

}