R/errors.R

In shunsambongi/enum: Create enumerated values

error <- function(..., .envir = parent.frame(), .subclass = "enum_error") {
  rlang::abort(glue::glue(..., .envir = .envir), .subclass = .subclass)
}

error_bullets <- function(main, sub, bullets) {
  transformer <- function(text, envir) {
    items <- eval(parse(text = text, keep.source = FALSE), envir)
    paste("  *", items, collapse = "\n")
  }
  error(main, "", sub, "{bullets}", .transformer = transformer, .sep = "\n")
}