Match history scraper

battle.R

library(XML)
  
url <- "http://eu.battle.net/sc2/en/profile/2007578/1/joachifm"
  
scrape.matchhistory <- function(profile.url) {
  url <- paste(profile.url, "/matches", sep="")
  doc <- htmlTreeParse(url, useInternalNodes=T)
  thead <- xpathSApply(doc, "//*/table[@class='data-table']/thead/tr/th", xmlValue)
  tbody <- xpathSApply(doc, "//*/table[@class='data-table']/tbody/tr/td", compose(trim, xmlValue))
  m <- matrix(tbody, ncol=length(thead), byrow=T)
  f <- as.data.frame(m, stringsAsFactors=F)
  names(f) <- thead
  f
}