## AUTHOR: BRIAN M. BOT
#####
.getCommitTree <- function(myRepo){
## GET THE TREE
cat("status: getting information about the commit tree\n")
treeURI <- paste(myRepo@apiResponses$commit$tree["url"], "?recursive=1", sep="")
myRepo@apiResponses$tree <- githubRestGET(treeURI)
thisTree <- data.frame(type = sapply(myRepo@apiResponses$tree$tree, function(x){x[["type"]]}),
path = sapply(myRepo@apiResponses$tree$tree, function(x){x[["path"]]}),
sha = sapply(myRepo@apiResponses$tree$tree, function(x){x[["sha"]]}),
url = sapply(myRepo@apiResponses$tree$tree, function(x){x[["url"]]}),
stringsAsFactors=FALSE)
thisTree <- thisTree[thisTree$type != "tree", ]
thisTree$type <- NULL
rownames(thisTree) <- 1:nrow(thisTree)
myRepo@tree <- thisTree
return(myRepo)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.