R/pak-errors.R

In pak: Another Approach to Package Installation

pkg_error <- function(
  ...,
  .data = NULL,
  .class = NULL,
  .envir = parent.frame(),
  call. = TRUE
) {
  .hide_from_trace <- TRUE
  cnd <- new_error(
    call. = call.,
    cli::format_error(
      .envir = .envir,
      c(
        ...
      )
    )
  )

  if (length(.data)) {
    cnd[names(.data)] <- .data
  }
  if (length(.class)) {
    class(cnd) <- c(.class, class(cnd))
  }

  cnd
}