Add support for submodules

[brian-bot]

Currently, the client breaks if a repository has a reference to a submodule (as discovered by @jgockley62). More information to be added here once available.

[brian-bot]

Currently using the /repos/{owner}/{repo}/git/trees/{tree_sha} API - might need to switch to /repos/{owner}/{repo}/contents/{path} or some combination of the two.

Additionally, the mechanism by which the client constructs permanent links for HTML and raw references is a bit clunky and might be able to be fixed by this switch as well.

[jgockley62]

So I was playing around with the code a bit here:

githubr/R/getCommitTree.R

Line 11 in 9e392bb

thisTree <- data.frame(type = sapply(myRepo@apiResponses$tree$tree, function(x){x[["type"]]}),

I found a way to insert A link.... it's not functional and doesn't wouldn't work to pull info from a sub module but may prevent an error when pulling another piece of info.

# Are There Sub Modules
if( isTRUE('.gitmodules' %in% sapply(myRepo@apiResponses$tree$tree, function(x){x[["path"]]})) ){
  
  #Pull the git modules File
  SubMods <- system('git config -f .gitmodules -l', intern=TRUE)
  
  #Find the indexs of the submodules
  url = sapply(myRepo@apiResponses$tree$tree, function(x){x[["url"]]})
  ind <- c( which( 'NULL' == as.character(url) ) )
  
  #Find the pathnames of the submodules
  pathIDs = as.character(sapply(myRepo@apiResponses$tree$tree, function(x){x[["path"]]}))[ind]
  
  #Clean Subodule Object
  for( i in 1:length(SubMods) ){
    SubMods[i] <- unlist(stringr::str_split(SubMods[i], '[=]'))[2]
  } 
  
  #Buld a path-to-link object
  IND <- c(1:length(SubMods))
  Translate <- SubMods[ IND[which(IND %% 2 == 0)] ]
  names(Translate) <- SubMods[ IND[which(IND %% 2 != 0)] ]
  
  #Pull the repo data
  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"]]})
  
  #Place URLs for sub modules in the url object
  for( i in 1:length( Translate ) ){
    url[ which( path == names(Translate[i]) ) ] <- as.character(Translate[i])
  }
  
  thisTree <- data.frame(type,
                         path,
                         sha,
                         url,
                         stringsAsFactors=FALSE
                        )
}else{
  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)
}