R/getCommitTree.R

In brian-bot/githubr: R Github Client

## 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)
  
  ## IDENTIFY SUBMODULES
  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 = as.character(sapply(myRepo@apiResponses$tree$tree, function(x){x[["url"]]})),
                         stringsAsFactors=FALSE)
  thisTree <- thisTree[ thisTree$type != "tree", ]
  thisTree$type[ thisTree$type == "commit" ] <- "submodule"
  rownames(thisTree) <- 1:nrow(thisTree)
  
  myRepo@tree <- thisTree
  
  return(myRepo)
}