R/validate.summary.files.R

Defines functions validate.summary.files

validate.summary.files <- function(summary.files){
  
  # validate summary.files
  if(!is.vector(summary.files)){
    msg <- "Invalid summary.files"
    stop(msg)
    
    tmp <- !file.exists(summary.files)
    if(any(tmp)){
      msg <- paste(c("File(s) below were not found: ", summary.files[tmp]), collapse = "\n")
      stop(msg)
    }
  }
  
}
zhangh12/ARTP3 documentation built on Aug. 16, 2019, 7:39 p.m.