R/utils-infix-helpers.R

Defines functions `%l0%` `%||%` `%nin%`

`%l0%` <- function(x, y) if (length(x) == 0) y else x
`%||%` <- function(x, y) if (is.null(x)) y else x
`%@%` <- function (x, name) attr(x, name, exact = TRUE)
`%nin%` <- function(x, table) match(x, table, nomatch = 0) == 0
hrbrmstr/seymour documentation built on Jan. 24, 2020, 11:27 a.m.