Pulls scoring summary for all games in 2016 up to week 8

allScoringSummary.R

#devtools::install_github("JackStat/cfb")

library(foreach)
library(cfb)

TotalWeeks = 8

allScoringSummary <- foreach(i = 1:TotalWeeks, .combine = 'rbind') %do% {
  message(i)
  scb <- NCAAscoreboard(2016, i)
  scoringURLs <- as.character(scb$scoringURL)
  
  scoringURLs = scoringURLs[!is.na(scoringURLs)]
  
  foreach(k = 1:length(scoringURLs), .combine = 'rbind') %do% {
    NCAAscoringSummary(scoringURLs[k])
  }
}