j-martens

# Run Simon Urbanek's benchmark v2.5

cat("R version\n")
cat("=========\n")
print(R.version)

if(exists("Revo.version")) {
  cat("Revo version")
  cat("============")
  print(Revo.version)

hadley

library(httr)
library(XML)
library(selectr)

xpath <- function(x) structure(x, class = "xpath")
sel <- function(x) xpath(css_to_xpath(x, prefix = "//"))

url <- "http://www.boxofficemojo.com/movies/?id=ateam.htm"
html <- content(GET(url), "parsed")