15 lines
228 B
R
15 lines
228 B
R
# not in
|
|
`%notin%` <- function(a, b) {
|
|
!(a %in% b)
|
|
}
|
|
|
|
# not all in
|
|
`%notallin%` <- function(a, b) {
|
|
!(all(a %in% b))
|
|
}
|
|
|
|
# infix for null replacement
|
|
#' @importFrom rlang `%||%`
|
|
`%ifnullrep%` <- function(a, b) {
|
|
a %||% b
|
|
}
|