R/pf_error.R

In earl88/PetFindr: An R client for the PetFinder API

pf_error <- function(status_code) {
  err <- switch(as.character(status_code),
                "200" = "OK",
                "400" = "The request is missing parameters or contains invalid parameters. For more information, go to https://www.petfinder.com/developers/v2/docs/.",
                "401" = "Access was denied due to invalid credentials. This could be an invalid API key/secret combination, missing access token, or expired access token.",
                "403" = "Access denied due to insufficient access.",
                "404" = "The requested resource was not found.",
                "500" = "The request ran into an unexpected error. If the problem persists, please contact support at https://www.petfinder.com/developers/support/.")
  
  if(is.null(err)) {
    err <- httr::http_status(as.integer(status_code))$message
  }
  
  return(err)
}