R/add_file.R

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

#' Add a Single File to a Commit
#' @description This function is a primitive function to wrap add_some() around.
#' @param path_to_local_repo full path to local repository to be pushed
#' @import purrr
#' @importFrom magrittr %>%
#' @importFrom cave size_in_mb
#' @importFrom centipede no_na
#' @export


add_file <-
        function(
                 file,
                 verbose = TRUE,
                 path_to_local_repo = NULL) {

                if (is.null(path_to_local_repo)) {
                        path_to_local_repo <- getwd()
                }


                if (!(file %in% lsUnstagedFiles(path_to_local_repo = path_to_local_repo))) {

                        stop(file, " not found in ", path_to_local_repo)

                }


                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)


                file_size <- cave::size_in_mb(paste0(path_to_local_repo, "/", file)) %>%
                                                centipede::no_na()


                if (length(file_size)) {
                        if (file_size > 100) {
                                stop(file, " is greater than 100 MB.")
                        }
                }


                gitMessage <-
                        file %>%
                        formatCli() %>%
                        purrr:::map(function(x) system(paste0("cd\n",
                                                              "cd ", path_to_local_repo,"\n",
                                                              "git add ", x),
                                                       intern = TRUE)) %>%
                                unlist()

                if (verbose) {

                        printMsg(gitMessage)

                }

                if (length(gitMessage)) {

                        invisible(gitMessage)

                }

        }