R/git_log_analysis.R

In lbraglia/lbav: AV YouTube subs utilities

#' Analysis of a project (git infos)
#' 
#' @param prj project
#' @export
git_log_analysis <- function(prj){
    
    projs <- list.files('subs', full.names = TRUE)
    exclude_dirs <- projs %without% subs_dir(prj)
    exclude_dirs <- paste0(exclude_dirs, '/')
    exclude_dirs <- paste(sprintf("-x file:'%s'", exclude_dirs),
                          collapse = ' ')

    log_file <- sprintf("/tmp/av_it_subs_%s_log_analysis.html", prj)

    cmd <- paste("gitinspector  -x author:'Luca Braglia'",
                 exclude_dirs,
                 "-f srt -F html -mrT . >",
                 log_file,
                 " && firefox ",
                 log_file,
                 collapse = ' ')
    
    cat(c("Executing:", "\n", cmd, '\n'), sep = '')
    system(cmd)
}