R/stop_if_dir_not_exist.R

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

#' Stop if the directory does not exist
#' @export

stop_if_dir_not_exist <-
        function(path_to_local_repo = NULL) {

                if (is.null(path_to_local_repo)) {

                        path_to_local_repo <- getwd()

                }

                if (!(dir.exists(path_to_local_repo))) {

                        stop(path_to_local_repo, " doesn't exist")

                }

        }