R/utils.R

Defines functions with_seed_null

with_seed_null <- function(seed, code) {
  if (is.null(seed)) {
    code
  } else {
    withr::with_seed(seed, code)
  }
}

"%||%" <- function(a, b) {
  if (!is.null(a)) a else b
}
acoppock/vayr documentation built on April 14, 2025, 2:44 p.m.