R/httpError.R

In RCurl: General Network (HTTP/FTP/...) Client Interface for R

getHTTPErrorClass =
function(status)
{

  if("status" %in% names(status))
    status = status[["status"]]


  i = match(as.character(status), names(httpErrorClasses))

  if(is.na(i))
     "GenericHTTPError"
  else
     c(httpErrorClasses[i], "HTTPError")
}