| Previous changeset 16:a2b6488ea1b9 (2018-09-19) Next changeset 18:5cf5d4338a44 (2018-10-09) |
|
Commit message:
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e3956bf3393be5bff67b4d90f1007da00b0ec9b2-dirty |
|
modified:
lib.r |
| b |
| diff -r a2b6488ea1b9 -r 4c37cd23e347 lib.r --- a/lib.r Wed Sep 19 02:55:47 2018 -0400 +++ b/lib.r Thu Oct 04 10:38:43 2018 -0400 |
| [ |
| @@ -186,9 +186,9 @@ #@author G. Le Corguille # value: intensity values to be used into, maxo or intb -getPeaklistW4M <- function(xdata, intval="into", convertRTMinute=F, numDigitsMZ=4, numDigitsRT=0, naTOzero=T, variableMetadataOutput, dataMatrixOutput) { +getPeaklistW4M <- function(xdata, intval="into", convertRTMinute=F, numDigitsMZ=4, numDigitsRT=0, naTOzero=T, variableMetadataOutput, dataMatrixOutput, sampleNamesList) { dataMatrix <- featureValues(xdata, method="medret", value=intval) - colnames(dataMatrix) <- tools::file_path_sans_ext(colnames(dataMatrix)) + colnames(dataMatrix) <- make.names(tools::file_path_sans_ext(colnames(dataMatrix))) dataMatrix = cbind(name=groupnamesW4M(xdata), dataMatrix) variableMetadata <- featureDefinitions(xdata) colnames(variableMetadata)[1] = "mz"; colnames(variableMetadata)[4] = "rt" |