R/check.R

In jinjar: Template Engine Inspired by 'Jinja'

check_string <- function(x, arg = caller_arg(x), call = caller_env()) {
  if (!is_string(x)) {
    cli::cli_abort("{.arg {arg}} must be a string", arg = arg, call = call)
  }
}

check_bool <- function(x, arg = caller_arg(x), call = caller_env()) {
  if (!is_bool(x)) {
    cli::cli_abort("{.arg {arg}} must be TRUE or FALSE", arg = arg, call = call)
  }
}

check_count <- function(x, inf = FALSE, arg = caller_arg(x), call = caller_env()) {
  finite <- if (inf) NULL else TRUE
  if (!is_scalar_integerish(x, finite = finite) || is.na(x) || x <= 0) {
    cli::cli_abort("{.arg {arg}} must be a positive integer", arg = arg, call = call)
  }
}

check_inherits <- function(x, cls, arg = caller_arg(x), call = caller_env()) {
  if (!inherits(x, cls)) {
    cli::cli_abort("{.arg {arg}} must be a {.cls {cls}} object", arg = arg, call = call)
  }
}

check_file_exists <- function(x, arg = caller_arg(x), call = caller_env()) {
  if (!fs::file_exists(x) || fs::dir_exists(x)) {
    cli::cli_abort("File does not exist: {.file {x}}", arg = arg, call = call)
  }
}

check_dir_exists <- function(x, arg = caller_arg(x), call = caller_env()) {
  if (!fs::dir_exists(x)) {
    cli::cli_abort("Directory does not exist: {.path {x}}", arg = arg, call = call)
  }
}