R/utils.R

In att/rcloud.rmd: Import and Export RStudio Notebooks into/from RCloud

Defines functions `%||%` `%:::%` drop_nulls

`%||%` <- function(l, r) if (is.null(l)) r else l

`%:::%` <- function(p, f) do.call(base::`:::`, list(p, f))

drop_nulls <- function(x) {
  x [ ! vapply(x, is.null, TRUE) ]
}