#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])
  }
}