Scrape every player ever in the NBA draft in R

nba-draft-scrape

library(XML)

years <- 1950:2012

data <- NULL
for (i in years) {
  print(i)
  url <- paste("http://www.basketball-reference.com/draft/NBA_", i, ".html", sep="")
  page <- htmlTreeParse(readLines(url), useInternalNodes=T)
  table <- readHTMLTable(page)$stats
  table <- subset(table, Player!="Player" & College !="Totals")
  table$year <- i
  data <- rbind(data, table)
}