lol.R

library(XML)
library(RCurl)

url <- "http://loltw.gamebase.com.tw/summoner/TW/AZB_TPS_MiSTakE/monthly_stats#mstat-201311-RANKED_SOLO_5x5"
src <- getURL(url)
doc <- htmlParse(src)
div <- doc['//div[@id="mstat-201311-RANKED_SOLO_5x5"]//table/tbody/tr/td']
row.index.start <- which(sapply(div, function(a) length(a['br'])) > 0)
extract_br <- function(a) {
  src <- paste(capture.output(print(a)), collapse="\n")
  src.gr <- gregexpr(pattern="<br/><br/>\\n\\s+(?<name>.*)\\n\\s+<br/>", src, perl=TRUE)[[1]]
  src.a <- attributes(src.gr)
  substring(src, src.a$capture.start, src.a$capture.start + src.a$capture.length - 1)
}

extract_count <- Vectorize(function(src) {
  src.gr <- gregexpr(pattern="\\((?<count>\\d+)\\)$", src, perl = TRUE)[[1]]
  src.a <- attributes(src.gr)
  as.integer(substring(src, src.a$capture.start, src.a$capture.start + src.a$capture.length - 1))
})

df <- data.frame(
  name = sapply(div[row.index.start], extract_br),
  use = extract_count(sapply(div[row.index.start+1], xmlValue)),
  win = extract_count(sapply(div[row.index.start+2], xmlValue))
)

df