Skip to content

Instantly share code, notes, and snippets.

@j-martens
j-martens / urbanek-benchmark-25.R
Created Jul 13, 2015
MKL Performance Benchmark 2
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")