Mercurial > repos > mmonsoor > camera_combinexsannos

annotate CAMERA.r @ 21:ce18b7a5ef4e draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 1a6afbfa49a17d904e4e3cd01439f7ead41a0e33-dirty
author lecorguille
date Fri, 12 Apr 2019 10:46:37 -0400
parents 608b4b95818b
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
1 #!/usr/bin/env Rscript
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
2 # CAMERA.r version="2.2.1"
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
3
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
4
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
5
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
6 # ----- PACKAGE -----
19
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
7 cat("\tSESSION INFO\n")
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
8
19
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
9 pkgs=c("CAMERA","multtest","batch")
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
10 for(pkg in pkgs) suppressPackageStartupMessages( stopifnot( library(pkg, quietly=TRUE, logical.return=TRUE, character.only=TRUE)))
4
9a1a72ee9418 planemo upload commit 2761472c8afc41d54cecd54cabd1c5a5713514a3-dirty
lecorguille
parents: 2
diff changeset
11
19
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
12 sessioninfo = sessionInfo()
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
13 cat(sessioninfo$R.version$version.string,"\n")
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
14 cat("Main packages:\n")
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
15 for (pkg in names(sessioninfo$otherPkgs)) { cat(paste(pkg,packageVersion(pkg)),"\t") }; cat("\n")
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
16 cat("Other loaded packages:\n")
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
17 for (pkg in names(sessioninfo$loadedOnly)) { cat(paste(pkg,packageVersion(pkg)),"\t") }; cat("\n")
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
18
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
19 source_local <- function(fname){ argv <- commandArgs(trailingOnly = FALSE); base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)); source(paste(base_dir, fname, sep="/")) }
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
20
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
21 cat("\n\n");
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
22
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
23
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
24
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
25 # ----- ARGUMENTS -----
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
26 cat("\tARGUMENTS INFO\n")
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
27
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
28 listArguments = parseCommandArgs(evaluate=FALSE) #interpretation of arguments given in command line as an R list of objects
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
29 write.table(as.matrix(listArguments), col.names=F, quote=F, sep='\t')
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
30
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
31 cat("\n\n");
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
32
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
33
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
34 # ----- PROCESSING INFILE -----
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
35 cat("\tINFILE PROCESSING INFO\n")
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
36
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
37 #image is an .RData file necessary to use xset variable given by previous tools
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
38 if (!is.null(listArguments[["image"]])){
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
39 load(listArguments[["image"]]); listArguments[["image"]]=NULL
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
40 }
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
41
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
42 if (listArguments[["xfunction"]] %in% c("combinexsAnnos")) {
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
43 load(listArguments[["image_pos"]])
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
44 xaP=xa
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
45 listOFlistArgumentsP=listOFlistArguments
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
46 if (exists("xsAnnotate_object")) xaP=xsAnnotate_object
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
47
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
48 diffrepP=NULL
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
49 if (exists("diffrep")) diffrepP=diffrep
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
50
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
51 load(listArguments[["image_neg"]])
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
52 xaN=xa
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
53 listOFlistArgumentsN=listOFlistArguments
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
54 if (exists("xsAnnotate_object")) xaN=xsAnnotate_object
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
55
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
56 diffrepN=NULL
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
57 if (exists("diffrep")) diffrepN=diffrep
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
58 }
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
59
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
60
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
61 cat("\n\n")
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
62
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
63
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
64 # ----- ARGUMENTS PROCESSING -----
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
65 cat("\tARGUMENTS PROCESSING INFO\n")
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
66
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
67 # Save arguments to generate a report
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
68 if (!exists("listOFlistArguments")) listOFlistArguments=list()
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
69 listOFlistArguments[[paste(format(Sys.time(), "%y%m%d-%H:%M:%S_"),listArguments[["xfunction"]],sep="")]] = listArguments
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
70
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
71
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
72 #saving the commun parameters
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
73 thefunction = listArguments[["xfunction"]]
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
74 listArguments[["xfunction"]]=NULL #delete from the list of arguments
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
75
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
76 xsetRdataOutput = paste(thefunction,"RData",sep=".")
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
77 if (!is.null(listArguments[["xsetRdataOutput"]])){
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
78 xsetRdataOutput = listArguments[["xsetRdataOutput"]]; listArguments[["xsetRdataOutput"]]=NULL
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
79 }
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
80
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
81 rplotspdf = "Rplots.pdf"
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
82 if (!is.null(listArguments[["rplotspdf"]])){
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
83 rplotspdf = listArguments[["rplotspdf"]]; listArguments[["rplotspdf"]]=NULL
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
84 }
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
85
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
86 variableMetadataOutput = "variableMetadata.tsv"
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
87 if (!is.null(listArguments[["variableMetadataOutput"]])){
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
88 variableMetadataOutput = listArguments[["variableMetadataOutput"]]; listArguments[["variableMetadataOutput"]]=NULL
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
89 }
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
90
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
91 #Import the different functions
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
92 source_local("lib.r")
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
93
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
94 # We unzip automatically the chromatograms from the zip files.
4
9a1a72ee9418 planemo upload commit 2761472c8afc41d54cecd54cabd1c5a5713514a3-dirty
lecorguille
parents: 2
diff changeset
95 if (thefunction %in% c("annotatediff")) {
13
97e2c754e81f planemo upload commit 00bda51a5454373957a0b75024d9fc4282743c4d
lecorguille
parents: 12
diff changeset
96 if (!exists("zipfile")) zipfile=NULL
97e2c754e81f planemo upload commit 00bda51a5454373957a0b75024d9fc4282743c4d
lecorguille
parents: 12
diff changeset
97 if (!exists("singlefile")) singlefile=NULL
97e2c754e81f planemo upload commit 00bda51a5454373957a0b75024d9fc4282743c4d
lecorguille
parents: 12
diff changeset
98 rawFilePath = getRawfilePathFromArguments(singlefile, zipfile, listArguments)
12
ddce949e4b35 planemo upload commit d708b85fc764e790fac071552d19cd7a89d02d31
lecorguille
parents: 11
diff changeset
99 zipfile = rawFilePath$zipfile
ddce949e4b35 planemo upload commit d708b85fc764e790fac071552d19cd7a89d02d31
lecorguille
parents: 11
diff changeset
100 singlefile = rawFilePath$singlefile
ddce949e4b35 planemo upload commit d708b85fc764e790fac071552d19cd7a89d02d31
lecorguille
parents: 11
diff changeset
101 listArguments = rawFilePath$listArguments
ddce949e4b35 planemo upload commit d708b85fc764e790fac071552d19cd7a89d02d31
lecorguille
parents: 11
diff changeset
102 directory = retrieveRawfileInTheWorkingDirectory(singlefile, zipfile)
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
103 }
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
104
19
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
105 # Because so far CAMERA isn't compatible with the new XCMSnExp object
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
106 if (exists("xdata")){
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
107 xset <- getxcmsSetObject(xdata)
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
108 }
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
109
19
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
110 # addition of xset object to the list of arguments in the first position
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
111 if (exists("xset")){
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
112 listArguments=append(list(xset), listArguments)
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
113 }
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
114
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
115 cat("\n\n")
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
116
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
117
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
118
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
119
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
120 # ----- PROCESSING INFO -----
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
121 cat("\tMAIN PROCESSING INFO\n")
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
122
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
123 #change the default display settings
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
124 pdf(file=rplotspdf, width=16, height=12)
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
125
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
126 if (thefunction %in% c("annotatediff")) {
19
608b4b95818b planemo upload commit aa538ae477bc2f901c95d916e11d70eab75b5e00
lecorguille
parents: 17
diff changeset
127 results_list=annotatediff(xset=xset,listArguments=listArguments,variableMetadataOutput=variableMetadataOutput)
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
128 xa=results_list[["xa"]]
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
129 diffrep=results_list[["diffrep"]]
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
130 variableMetadata=results_list[["variableMetadata"]]
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
131
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
132 cat("\n\n")
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
133 cat("\tXSET OBJECT INFO\n")
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
134 print(xa)
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
135 }
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
136
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
137 if (thefunction %in% c("combinexsAnnos")) {
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
138 cAnnot=combinexsAnnos_function(
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
139 xaP=xaP,xaN=xaN,
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
140 listOFlistArgumentsP=listOFlistArgumentsP,listOFlistArgumentsN=listOFlistArgumentsN,
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
141 diffrepP=diffrepP,diffrepN=diffrepN,
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
142 pos=listArguments[["pos"]],tol=listArguments[["tol"]],ruleset=listArguments[["ruleset"]],keep_meta=listArguments[["keep_meta"]],
14
018f73a9e98e planemo upload commit 2e3fcb07e9ff59974eaec8f868a9e78a63a89219
lecorguille
parents: 13
diff changeset
143 convertRTMinute=listArguments[["convertRTMinute"]], numDigitsMZ=listArguments[["numDigitsMZ"]], numDigitsRT=listArguments[["numDigitsRT"]],
9
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
144 variableMetadataOutput=variableMetadataOutput
972152941964 planemo upload commit a634879c0e651eb0eb7b435a107ee40cf30524fa
lecorguille
parents: 4
diff changeset
145 )
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
146 }
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
147
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
148 dev.off()
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
149
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
150
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
151 #saving R data in .Rdata file to save the variables used in the present tool
11
d67f7aa847bf planemo upload commit 16a3d02483140f6838d67f275e7548eb1f14226e
lecorguille
parents: 9
diff changeset
152 objects2save = c("xa","variableMetadata","diffrep","cAnnot","listOFlistArguments","zipfile","singlefile")
2
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
153 save(list=objects2save[objects2save %in% ls()], file=xsetRdataOutput)
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
154
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
155 cat("\n\n")
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
156
2591056df814 planemo upload commit d8cc436fd91f5748dc396d0527a0a303d3221835
lecorguille
parents:
diff changeset
157 cat("\tDONE\n")