R/delete_branch.R

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

#' Delete a Branch
#' @description Delete a branch.
#' @param branch Name of branch to delete
#' @export


delete_branch <-
        function(path_to_local_repo = NULL,
                 branch) {

                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)

                system(paste0("cd\n",
                              "cd ", path_to_local_repo,"\n",
                              "git checkout -d ", branch),
                       intern = FALSE)


        }