Mercurial > repos > lecorguille > xcms_retcor

diff xcms_retcor.r @ 46:32c1cbdbdd3b 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 665b0684ed3cd1db5d297e0265c59787f8b66289"
author workflow4metabolomics
date Thu, 13 Feb 2020 11:42:41 +0000
parents 1986c48d86ce
children 366ff564f949
line wrap: on
line diff
--- a/xcms_retcor.r	Wed Feb 12 13:26:47 2020 +0000
+++ b/xcms_retcor.r	Thu Feb 13 11:42:41 2020 +0000
@@ -63,6 +63,12 @@
 
 adjustRtimeParam <- do.call(paste0(method,"Param"), args)
 print(adjustRtimeParam)
+
+if (hasAdjustedRtime(xdata)) {
+  cat("WARNING: a retention time ajustment had already been applied to your data.\nThe function applyAdjustedRtime was processed to cumulate the ajustment")
+  cat("Replace raw retention times with adjusted retention times.\n")
+  xdata <- applyAdjustedRtime(xdata)
+}
 xdata <- adjustRtime(xdata, param=adjustRtimeParam)
 
 #cat("\t\t\tCompute and Store TIC and BPI\n")