R/utils.R

In uo-cmor/cea: Functions for Trial-Based Cost-Effectiveness Analysis

with_sink <- function(file, code) {
  if (is.null(file)) return(code)
  sink(file)
  on.exit(sink())
  force(code)
}

with_null_pdf <- function(code) {
  grDevices::pdf(NULL)
  on.exit(grDevices::dev.off(grDevices::dev.cur()))
  force(code)
}

is_valid_treatment <- function(x) {
  if (is.logical(x) || is.factor(x)) return(TRUE)
  if (!is.numeric(x)) return(FALSE)
  all(x %in% 0:1)
}

# `%||%` <- function(x, y) if (is.null(x)) y else x