notr: Not Predicates and Set Operators

#' Not Type predicates
#'
#' These are binary opposites and companions to the type predicates provided in package \pkg{purrr}.
#'
#' @param x object to be tested.
#' @seealso \link{bare-type-predicates} \link{scalar-type-predicates} \link{type-predicates}
#' @name not-type-predicates
#' @import rlang
NULL

#' @export
#' @rdname not-type-predicates
is_not_atomic           <- function(x) !is_atomic(x)(x)

#' @export
#' @rdname not-type-predicates
is_not_bare_atomic      <- function(x) !is_bare_atomic(x)

#' @export
#' @rdname not-type-predicates
is_not_bare_character   <- function(x) !is_bare_character(x)

#' @export
#' @rdname not-type-predicates
is_not_bare_double      <- function(x) !is_bare_double(x)

#' @export
#' @rdname not-type-predicates
is_not_bare_integer     <- function(x) !is_bare_integer(x)

#' @export
#' @rdname not-type-predicates
is_not_bare_list        <- function(x) !is_bare_list(x)

#' @export
#' @rdname not-type-predicates
is_not_bare_logical     <- function(x) !is_bare_logical(x)

#' @export
#' @rdname not-type-predicates
is_not_bare_numeric     <- function(x) !is_bare_numeric(x)

#' @export
#' @rdname not-type-predicates
is_not_bare_vector      <- function(x) !is_bare_vector(x)

#' @export
#' @rdname not-type-predicates
is_not_character        <- function(x) !is_character(x)

#' @export
#' @rdname not-type-predicates
is_not_double           <- function(x) !is_double(x)

#' @export
#' @rdname not-type-predicates
is_not_empty            <- function(x) !is_empty(x)

#' @export
#' @rdname not-type-predicates
is_not_formula          <- function(x) !is_formula(x)

#' @export
#' @rdname not-type-predicates
is_not_function         <- function(x) !is_function(x)

#' @export
#' @rdname not-type-predicates
is_not_integer          <- function(x) !is_integer(x)

#' @export
#' @rdname not-type-predicates
is_not_list             <- function(x) !is_list(x)

#' @export
#' @rdname not-type-predicates
is_not_logical          <- function(x) !is_logical(x)

#' @export
#' @rdname not-type-predicates
is_not_null             <- function(x) !is_null(x)

#' @export
#' @rdname not-type-predicates
is_not_numeric          <- function(x) !is_numeric(x)

#' @export
#' @rdname not-type-predicates
is_not_scalar_atomic    <- function(x) !is_scalar_atomic(x)

#' @export
#' @rdname not-type-predicates
is_not_scalar_character <- function(x) !is_scalar_character(x)

#' @export
#' @rdname not-type-predicates
is_not_scalar_double    <- function(x) !is_scalar_double(x)

#' @export
#' @rdname not-type-predicates
is_not_scalar_integer   <- function(x) !is_scalar_integer(x)

#' @export
#' @rdname not-type-predicates
is_not_scalar_list      <- function(x) !is_scalar_list(x)

#' @export
#' @rdname not-type-predicates
is_not_scalar_logical   <- function(x) !is_scalar_logical(x)

#' @export
#' @rdname not-type-predicates
is_not_scalar_numeric   <- function(x) !is_scalar_numeric(x)

#' @export
#' @rdname not-type-predicates
is_not_scalar_vector    <- function(x) !is_scalar_vector(x)

#' @export
#' @rdname not-type-predicates
is_not_vector           <- function(x) !is_vector(x)

#' @export
#' @rdname not-type-predicates
is_not_na               <- function(x) !is.na(x)

#' also, \code{is_na()} and \code{is_infinite()} are provided as alias of
#' \code{is.na()} and \code{is.infinite()} for snake_case consistancy with
#' functions
#' @export
#' @rdname not-type-predicates
is_na                   <- is.na


#' @export
#' @rdname not-type-predicates
is_infinite            <- is.infinite


#' @export
#' @rdname not-type-predicates
is_not_infinite            <- function(x) !is.infinite(x)