R/stop_if_dne.R

In epongpipat/eepR: Common Functions that I Use Regularly

Defines functions stop_if_dne

Documented in stop_if_dne

#' stop_if_dne
#'
#' @param file
#'
#' @return
#' @export
#'
#' @examples
stop_if_dne <- function(file) {
  if (!file.exists(file)) {
    stop(sprintf("file (%s) does not exist", file))
  }
}