R/CHECKING-check_status_code.R

In NIVANorge/chemspiderapi: R Wrapper for ChemSpider's API Services

.check_status_code <- function(status_code) {
  
  if (status_code != 200L) {
    
    if (status_code == 400L) {
      error_message <- "ChemSpider Response Error Details:\n\"400: Bad Request. Check the request you sent and try again.\""
    }
    
    if (status_code == 401L) {
      error_message <- "ChemSpider Response Error Details:\n\"401: Unauthorized. Check you have supplied the correct API key and that you have sent it as an HTTP Header called 'apikey'.\""
    }
    
    if (status_code == 404L) {
      error_message <- "ChemSpider Response Error Details:\n\"404: Not Found. The requested endpoint URL is not recognized. Change your request and try again.\""
    }
    
    if (status_code == 405L) {
      error_message <- "ChemSpider Response Error Details:\n\"405: Method Not Allowed. The verb is incorrect for the endpoint. Change your request and try again.\""
    }
    
    if (status_code == 413L) {
      error_message <- "ChemSpider Response Error Details:\n\"413: Payload Too Large. The request you sent was too big to handle. Change your request and try again.\""
    }
    
    if (status_code == 429L) {
      error_message <- "ChemSpider Response Error Details:\n\"429: Too Many Requests. Send fewer requests, or use rate-limiting to slow them down, then try again.\""
    }
    
    if (status_code == 500L) {
      error_message <- "ChemSpider Response Error Details:\n\"500: Internal Server Error. Wait and try again.\""
    }
    
    if (status_code == 503L) {
      error_message <- "ChemSpider Response Error Details:\n\"503: Service Unavailable. Wait and try again.\""
    }
    
    if (!any(status_code %in% 
             c(400L, 401L, 404L, 405L, 413L, 429L, 500L, 503L))) {
      error_message <- "No ChemSpider Response Error Details were provided."
    }
    
    message <- paste0("No valid results were obtained.\n", error_message)
    
    stop(message, 
         call. = FALSE)
  }

}