inst/HTTPErrors/makeErrorClasses.R

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

doc = htmlTreeParse("http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html", useInternal = TRUE)
types = xpathSApply(doc, "//h3", xmlValue)

types = gsub("^10\\.[0-9]+(\\.[0-9]+)? ", "", types)
types = types [ - grep("[0-9]xx$", types) ]

scan(con, what = c("integer", "character"))

status = gsub("^([0-9]+).*", "\\1", types)
name = gsub("[0-9]+ (.*)", "\\1", types)
name = gsub(" ", "_", name)

sQuote = function(x) paste("'", x, "'", sep = "")
cat("# Generated from inst/HTTPErrors/makeErrorClasses.R\n",
     "httpErrorClasses =\nc(", paste(sQuote( status ), sQuote(name), sep = " = ", collapse = ",\n   "), "\n)",
     file = "~/Projects/org/omegahat/R/RCurl/R/httpErrors.R")