Mercurial > repos > lecorguille > xcms_plot_chromatogram
diff lib.r @ 4:caf45efb34bf draft
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 37b0a6a7686f701e4bf00db97ae2c1b82cd6e989
| author | lecorguille |
|---|---|
| date | Fri, 09 Nov 2018 15:11:22 -0500 |
| parents | 2130b2a6d12c |
| children | 7c0cc7a3c3db |
line wrap: on
line diff
--- a/lib.r Tue Oct 09 04:37:28 2018 -0400 +++ b/lib.r Fri Nov 09 15:11:22 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) @@ -260,9 +263,9 @@ #Create the sampleMetada dataframe sampleMetadata <- xdata@phenoData@data rownames(sampleMetadata) <- NULL - colnames(sampleMetadata) <- c("sampleMetadata", "class") + colnames(sampleMetadata) <- c("sample_name", "class") - sampleNamesOrigin <- sampleMetadata$sampleMetadata + sampleNamesOrigin <- sampleMetadata$sample_name sampleNamesMakeNames <- make.names(sampleNamesOrigin) if (any(duplicated(sampleNamesMakeNames))) { @@ -280,7 +283,7 @@ } } - sampleMetadata$sampleMetadata <- sampleNamesMakeNames + sampleMetadata$sample_name <- sampleNamesMakeNames #For each sample file, the following actions are done