Extract player data

install.packages("RCurl"); install.pacakges("rjson")
library(RCurl); library(rjson)

df <- fromJSON(getURL("https://raw.github.com/BurntSushi/nflgame/master/nflgame/players.json"))

dataframeFromJSON <- function(l) {
  l1 <- lapply(l, function(x) {
    x[sapply(x, is.null)] <- NA
    unlist(x)
  })
  keys <- unique(unlist(lapply(l1, names)))
  l2 <- lapply(l1, '[', keys)
  l3 <- lapply(l2, setNames, keys)
  res <- data.frame(do.call(rbind, l3))
  return(res)
}

df <- dataframeFromJSON(df)