R/utils.R

In shunsambongi/vault: Locally store encrypted secrets

glubort <- function(..., class = NULL, .envir = parent.frame()) {
  message <- glue::glue(..., .envir = .envir)
  rlang::abort(message, class)
}

is_testing <- function() {
  identical(Sys.getenv("TESTTHAT"), "true")
}

in_covr <- function() {
  identical(Sys.getenv("R_COVR"), "true")
}

coalesce <- function(x, y) {
  x[is.na(x)] <- FALSE
  x
}