R/error_handler.R

In firebase.auth.rest: R Wrapper for 'Firebase Authentication REST API'

#' firebase.auth.rest error handler
#'
#' Used in the `tryCatch()` blocks of `*()` functions
#' @param e The error.
#'
#' @keywords internal
#' @noRd
error_handler <- function(e) {
  resp_err <- httr2::last_response()
  if (!is.null(resp_err)) {
    resp_err <- httr2::resp_body_json(resp_err)$error
    err_list <- list(
      error = list(
        code = resp_err$code,
        message = resp_err$message
      )
    )
    return(err_list)
  }
  stop(conditionMessage(e), call. = FALSE)
}