comparison flagRemove.R @ 7:f96d0a86031a draft

planemo upload for repository https://github.com/computational-metabolomics/mspurity-galaxy commit 781bf118b12bf8f32e540932f4aaa3170f88b2ce

6:13afc5f245bc

#loads an RData file, and returns the named xset object if it is there
    load(rdata_path)
    return(get(ls()[ls() %in% name]))
}

xset <- loadRData(opt$xset_path, c('xset','xdata'))

print(xset)
if (is.null(opt$samplelist)){
    blank_class <- opt$blank_class
}else{

7:f96d0a86031a

#loads an RData file, and returns the named xset object if it is there
    load(rdata_path)
    return(get(ls()[ls() %in% name]))
}

xset <- getxcmsSetObject(loadRData(opt$xset_path, c('xset','xdata')))

print(xset)
if (is.null(opt$samplelist)){
    blank_class <- opt$blank_class
}else{