R/stop_if_e.R

In epongpipat/eepR: Common Functions that I Use Regularly

Defines functions stop_if_e

Documented in stop_if_e

#' stop_if_e
#'
#' @param file
#'
#' @return
#' @export
#'
#' @examples
stop_if_e <- function(file) {
  if (file.exists(file)) {
    stop(sprintf("file (%s) already exists", file))
  }
}