R/printError.R

In RoME: Multiple Checks on MEDITS Trawl Survey Data

printError<-function(funname,check_without_errors, stop_) {
  if (check_without_errors == FALSE) {
    if (stop_ == FALSE) {
      message(paste(funname,": errors occurred! Please correct files and run again the script. For more details see Logfile.dat", sep=""))
      stop_ = TRUE
    }
  } else {
    message(paste(funname," successfully completed!", sep=""))
  }

  return(stop_)
}