R/utility_generics.R

In Fuschi/JAX: What the Package Does (One Line, Title Case)

#--------------------------------------#
#'@noRd
assert <- function (expr, error) {
	if (!expr) stop(error, call. = FALSE)
}

#--------------------------------------#
#'@noRd
'%ni%' <- function(x,y){!(x%in%y)}

#--------------------------------------#
#'@noRd
is.empty <- function(x){ifelse(length(x)==0,TRUE,FALSE)}