# HG changeset patch
# User lecorguille
# Date 1541795701 18000
# Node ID ea1d802632ab38de0f3b9d0109ce6fedf6d6ad5e
# Parent  fad2e08591ac7a3635b76503ff934c8c6de948a0
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 37b0a6a7686f701e4bf00db97ae2c1b82cd6e989

diff -r fad2e08591ac -r ea1d802632ab lib.r
--- a/lib.r	Tue Oct 09 15:49:08 2018 -0400
+++ b/lib.r	Fri Nov 09 15:35:01 2018 -0500
@@ -198,6 +198,9 @@
     variableMetadata <- formatIonIdentifiers(variableMetadata, numDigitsRT=numDigitsRT, numDigitsMZ=numDigitsMZ)
     dataMatrix <- naTOzeroDataMatrix(dataMatrix, naTOzero)
 
+    # FIX: issue when the vector at peakidx is too long and is written in a new line during the export
+    variableMetadata[,"peakidx"] <- vapply(variableMetadata[,"peakidx"], FUN = paste, FUN.VALUE = character(1), collapse = ",")
+
     write.table(variableMetadata, file=variableMetadataOutput,sep="\t",quote=F,row.names=F)
     write.table(dataMatrix, file=dataMatrixOutput,sep="\t",quote=F,row.names=F)