Get Hex team colors for NBA, NFL, NHL, and MLB from http://teamcolors.arc90.com/ for use in R.

team_colors.r

url = 'http://teamcolors.arc90.com/'
library(httr)
get_colors = function(league=c('NBA', 'NFL', 'NHL', 'MLB')){
 
  league = match.arg(league)
 
  color_data = parse_html(GET('http://teamcolors.arc90.com/'))
  rbind.fill(xpathApply(color_data,
                        paste('//*[@id="', league, '"]/li[@class="team"]', sep=''),
                        parse_team))
}
 
parse_team = function(node){
  name = xmlValue(node[['h3']])
  colors = unlist(lapply(getNodeSet(node, './/span'), xmlValue))
  names(colors) = paste('color', 1:length(colors), sep='')
  data.frame(name=name, t(colors))
}
parse_html = function(resp){
  library(XML)
  htmlParse(content(resp, type='text'))
}