R script for scraping cloning stats from Github clone graphs.

gistfile1.txt

library(jsonlite)
library(httr)
library(XML)

username <- "allenluce"
repo <- "mmap-object"
password <- "allenluce's password"

# Go to Github
response <- GET ("https://github.com/login")
body <- content(response, "text")

# Pull out the authenticity_token
html <- htmlTreeParse(body, useInternal = TRUE)
txt <- xpathApply(html, "//input[@type='hidden'][@name='authenticity_token']", function(x) c(xmlValue(x), xmlAttrs(x)[["value"]]))
token <- txt[[1]][[2]]

# Log in
response <- POST("https://github.com/session",
                 body = list(commit="Sign in",
                 authenticity_token=token,
                 login=username,
                 password=password))

# Grab the clone stats
response <- GET(sprintf("https://github.com/%s/%s/graphs/clone-activity-data", username, repo),
                add_headers('x-requested-with'="XMLHttpRequest"))

body <- content(response, "text")
counts <- fromJSON(body)

print(counts)

# Total count is counts$summary$total
# Uniques is counts$summary$unique