R/checkCurlResponse.R

In Sage-Bionetworks/rSynapseClient: Synapse R Client from Sage Bionetworks

## Check the response of the curl request. throw an error if an http error
## code is returned.
## 
## Author: Matthew D. Furia <matt.furia@sagebase.org>
###############################################################################

.checkCurlResponse <- function(object, response, call.=FALSE, logErrorToSynapse=FALSE){
  if(class(object) != "CURLHandle") stop("invalid curl handle")
  info <- .getCurlInfo(object)
	responseStatus<-info$response.code
  if (isErrorResponseStatus(responseStatus)) {
    url<-info$effective.url
    host<-""
    if (!is.null(url) && nchar(url)>0) {
      parsedUrl<-.ParsedUrl(url)
      host<-parsedUrl@host
    }
    label<-paste(responseStatus, host)
    message <- paste("HTTP Error:", responseStatus, "for request", url)
    if (!missing(response)) {
      if (logErrorToSynapse) logErrorToSynapse(label, paste(message, response, sep = '\n'))
      stop(paste(message, response, sep = '\n'), call.=call.)
    } else {
      if (logErrorToSynapse) logErrorToSynapse(label, message=message)
      stop(message, call.=call.)
    }
  }
}

isErrorResponseStatus<-function(responseStatus) {
	responseStatus != 0 & (responseStatus < 200 || responseStatus >= 300)
}

# gets the status code for the given CurlHandle,
getStatusCode<-function(object) {
  if(class(object) != "CURLHandle") stop("invalid curl handle")
  info <- .getCurlInfo(object)
  info$response.code
}