KDD Cup 2015 Rank

kddcup2015_rank.R

# from http://qiita.com/Keiku/items/80656e99ca5e71dc1f43

library(rvest)
library(stringr)
library(dplyr)
library(tidyr)
library(reshape2)
library(magrittr)

submission_rank <- html("https://www.kddcup2015.com/submission-rank.html")
submission_rank_list <- submission_rank %>%
  html_nodes("tr") %>% 
  html_text() %>%
  str_replace_all(., "\t", "") %>%
  str_replace_all(., "\r", "") %>%
  str_split(., "\n") %>%
  melt() %>%
  subset(., value!="") %>%
  subset(., L1<=100) %>%
  mutate(key = rep(head(.$value,6),100)) %>%
  spread(key, value) %>%
  .[-1,] %>%
  .[c("#",
     "Δrank",
     "team name",
     "score",
     "Entries",
     "Last Submission UTC")] %>% 
  print