R/APPoll.R

In JackStat/cfb: Collection of functions for manipulating college football data

#' @title Scrape AP Poll from ESPN
#' 
#' @import XML
#' 
#' @export

APPoll <- function(year, week){
  
  url <- paste0('http://espn.go.com/college-football/rankings/_/poll/1/seasontype/2/year/',year,'/week/',week)
  
  doc <- htmlParse(url)
  
  rr <- readHTMLTable(doc)
  
  data.frame(
    RK = as.numeric(as.character(rr[[1]][,1]))
    ,Team = gsub('(.*)([a-z]|A&M)([A-Z]{3,5}|TA&M)(\\([0-9]{1,2}\\)|)', '\\1\\2', as.character(rr[[1]][,2]))
    ,Points = ifelse(as.numeric(as.character(rr[[1]][,4])) == 0, NA, as.numeric(as.character(rr[[1]][,4])))
    ,Year = year
    ,Week = week
    )
  
}