wush978
/ gist:4211514
Created
December 5, 2012 02:12
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # * 結構說明 | |
| # | |
| # 群組 | |
| # 規則名稱 | |
| # Regex 字串 | |
| # 關鍵字跟位置的對應表 | |
| # | |
| # match_any is a special string for resuing regex | |
| --- | |
| _alias: |
wush978
/ lol.R
Created
November 19, 2013 14:53
— forked from anonymous/lol.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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") |