R/helpers.R

In ooplah: Helper Functions for Class Object-Oriented Programming

Defines functions `%||%` str_collapse

str_collapse <- function(str) {
  sprintf("{%s}", paste0(str, collapse = ", "))
}

# With thanks to rlang
`%||%` <- function(x, y) {
  if (is.null(x)) {
    y
  } else {
    x
  }
}

Try the ooplah package in your browser