R/add_all.R

In patelm9/glitter: Send Git commands via the R Console.

#' Add All Files to a Commit
#' @param path_to_local_repo Full path to local repository. If NULL, adds all the files
#' @importFrom secretary typewrite_error
#' @importFrom magrittr %>%
#' @importFrom cave size_in_mb
#' @import dplyr
#' @import rubix
#' @import purrr
#' @export


add_all <-
        function(path_to_local_repo = NULL) {
                        require(tidyverse)

                        if (is.null(path_to_local_repo)) {

                                path_to_local_repo <- getwd()

                        }

                        stop_if_dir_not_exist(path_to_local_repo = path_to_local_repo)
                        stop_if_not_git_repo(path_to_local_repo = path_to_local_repo)


                        large_files <-
                        list.files(path_to_local_repo, full.names = TRUE) %>%
                                rubix::map_names_set(cave::size_in_mb) %>%
                                purrr::keep(function(x) x > 100) %>%
                                names()

                        if (length(large_files) > 0) {


                                stop("Files greater than 100 MB found: ", paste(large_files, collapse = ", "))

                        }

                        system(paste0("cd\n",
                                              "cd ", path_to_local_repo,"\n",
                                              "git add ."),
                                       intern = FALSE)

        }