comparison flagRemove.R @ 6:530dc7c80add draft

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

5:6c2ab7d0805d

#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{

6:530dc7c80add

#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{