EVOLUTION-MANAGER

Edit File: makeErrorClasses.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")