View urbanek-benchmark-25.R
# 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) |
View nice-xml.r
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") |