R/loadPreSorted.R

In nstone8/Rasylum: Rasylum: AFM Data Analysis in R

loadPreSorted=function(folder,consts,suffix){
    imp=batchLoad(folder,consts,suffix)
    iterated=list()
    for(i in 1:length(imp$data)){
        iterated[[i]]=list(data=imp$data[[i]],ident=imp$data[[i]][1,consts])
        if(length(consts<2)){
            names(iterated[[i]]$ident)=consts
        }
    }
    return(iterated)
}