nfl_college_scrape.R

library(rvest)
library(dplyr)
library(tidyr)

nfl <- data.frame()
for(a in letters[!(letters %in% c('q','x','z'))]){
  tmp <- read_html(
paste0("http://www.espn.com/nfl/college/_/letter/",a)
    ) %>%
    html_node("table") %>% 
    html_table %>%
    rename(player=X1,team=X2,position=X3) %>%
    filter(player!='PLAYER') %>%
    mutate(college=ifelse(player %in% intersect(.$player,.$team),player,NA)) %>%
    fill(college) %>%
    filter(player!=college)

nfl <- rbind(nfl,tmp)
print(a)
}