R/abort_if_file_doesnt_exist.R

In 2DegreesInvesting/PACTA_analysis: Helpers for 'PACTA_analysis'

#' @examples
#' path <- tempfile()
#'
#' abort_if_file_doesnt_exist(path)
#' fs::file_create(path)
#' abort_if_file_doesnt_exist(path)
#'
#' # Cleanup
#' fs::file_delete(path)
#' @noRd
abort_if_file_doesnt_exist <- function(path) {
  if (!file.exists(path)) {
    msg <- sprintf("This file must exist but it doesn't:\n%s", path)
    stop(msg, call. = FALSE)
  }

  invisible(path)
}