Mercurial > repos > lecorguille > xcms_fillpeaks
comparison xcms_fillpeaks.r @ 23:3bc94c3abb28 draft
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dec989d87d183bd3b79a61838eb5088a194ef29d
author | lecorguille |
---|---|
date | Mon, 03 Jun 2019 07:17:01 -0400 |
parents | 05d322d6facb |
children | 999f9db0ca2c |
comparison
equal
deleted
inserted
replaced
22:6824468351ca | 23:3bc94c3abb28 |
---|---|
79 fillChromPeaksParam <- do.call(paste0(method,"Param"), args) | 79 fillChromPeaksParam <- do.call(paste0(method,"Param"), args) |
80 print(fillChromPeaksParam) | 80 print(fillChromPeaksParam) |
81 | 81 |
82 # back compatibility between xcms-3.0.0 and xcms-3.5.2 | 82 # back compatibility between xcms-3.0.0 and xcms-3.5.2 |
83 xdata <- updateObject(xdata) | 83 xdata <- updateObject(xdata) |
84 | 84 register(SerialParam()) |
85 xdata <- fillChromPeaks(xdata, param=fillChromPeaksParam) | 85 xdata <- fillChromPeaks(xdata, param=fillChromPeaksParam) |
86 | 86 |
87 if (exists("intval")) { | 87 if (exists("intval")) { |
88 getPeaklistW4M(xdata, intval, convertRTMinute, numDigitsMZ, numDigitsRT, naTOzero, "variableMetadata.tsv", "dataMatrix.tsv") | 88 getPeaklistW4M(xdata, intval, convertRTMinute, numDigitsMZ, numDigitsRT, naTOzero, "variableMetadata.tsv", "dataMatrix.tsv") |
89 } | 89 } |