Mercurial > repos > lecorguille > xcms_retcor

comparison xcms_retcor.r @ 45:1986c48d86ce 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 13:26:47 +0000
parents db348cb32618
children 32c1cbdbdd3b
comparison
equal deleted inserted replaced
44:db348cb32618 45:1986c48d86ce
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 -----