R/is_not.R

In Yeedle/miscr: Miscellenious helper functions

#' \code{`\%not_in\%`} is a binary operator which returns the logical inverse
#' of \code{`%in%`}
#'
#' @usage x %in% vector
#'
#' @example
#' 1 %!in% 2:5
#' 1 %!in% c(1, 5, 10)

is_not_in <- function(...) {
  !magrittr::is_in(...)
}

#' @export
`%not_in%` <- is_not_in

is_not_na <- function(...) {
  !is.na(...)
}