R/exists_not_empty.R

Defines functions exists_not_empty

exists_not_empty <- function(files){
    sapply(files, function(f){
        if(file.exists(f)){
            l <- readLines(f)
            not_empty <- length(l)>0 
            return(not_empty) 
        } else {return(FALSE)} 
    }) 
}
RajLabMSSM/echofinemap documentation built on Jan. 3, 2023, 1:42 a.m.