R/utils.R

Defines functions `%<<%` `%>>%`

`%>>%` <- function(x, y) {
  if (!is.null(y) && x > y)
    y
  else
    x
}
`%<<%` <- function(x, y) {
  if (!is.null(y) && x < y)
    y
  else
    x
}
mkearney/pbr documentation built on Dec. 21, 2021, 7:05 p.m.