Mercurial > repos > lecorguille > xcms_retcor

comparison xcms_retcor.r @ 22:972e76582173 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload for repository https://github.com/workflow4metabolomics/xcms commit f1caf2a3bf23cf319a75dd12c86402555dd02617"
author workflow4metabolomics
date Wed, 12 Feb 2020 08:30:30 -0500
parents c914743e3f2f
children faf4a6b67304
comparison
equal deleted inserted replaced
21:7faadba7c625 22:972e76582173
42 if (!exists("xdata")) stop("\n\nERROR: The RData doesn't contain any object called 'xdata'. This RData should have been created by an old version of XMCS 2.*") 42 if (!exists("xdata")) stop("\n\nERROR: The RData doesn't contain any object called 'xdata'. This RData should have been created by an old version of XMCS 2.*")
43 43
44 # Handle infiles 44 # Handle infiles
45 if (!exists("singlefile")) singlefile <- NULL 45 if (!exists("singlefile")) singlefile <- NULL
46 if (!exists("zipfile")) zipfile <- NULL 46 if (!exists("zipfile")) zipfile <- NULL
47 rawFilePath <- getRawfilePathFromArguments(singlefile, zipfile, args) 47 rawFilePath <- retrieveRawfileInTheWorkingDirectory(singlefile, zipfile, args)
48 zipfile <- rawFilePath$zipfile 48 zipfile <- rawFilePath$zipfile
49 singlefile <- rawFilePath$singlefile 49 singlefile <- rawFilePath$singlefile
50 directory <- retrieveRawfileInTheWorkingDirectory(singlefile, zipfile)
51 50
52 cat("\n\n") 51 cat("\n\n")
53 52
54 53
55 # ----- MAIN PROCESSING INFO ----- 54 # ----- MAIN PROCESSING INFO -----