Skip to content

Instantly share code, notes, and snippets.

@ryusukekenji
Forked from nanxstats/109052.R
Created September 3, 2013 19:44
Show Gist options
  • Save ryusukekenji/6428616 to your computer and use it in GitHub Desktop.
Save ryusukekenji/6428616 to your computer and use it in GitHub Desktop.
require(RCurl)
require(rjson)
require(XML)
url = 'http://cn.soccerway.com/a/block_competition_matches?block_id=page_competition_1_block_competition_matches_7&callback_params=%7B%22page%22%3A%22-1%22%2C%22round_id%22%3A%2217950%22%2C%22outgroup%22%3A%22%22%2C%22view%22%3A%222%22%7D&action=changePage&params=%7B%22page%22%3A0%7D'
doc = getURL(url)
txt = fromJSON(doc)$commands[[1]]$parameters$content
tab = readHTMLTable(htmlParse(txt, encoding = 'utf-8'))[[1]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment