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")


"[.HTMLInternalDocument" <- function(x, i, ...) {
  if (inherits(i, "xpath")) {
    xpathApply(x, i)
  } else {
    NextMethod()
  }
  
}

html[sel("center")]
html[sel("center font")]
html[sel("center font b")]