annotate probmetab.r @ 9:fe21deb6b625 draft

planemo upload commit 4119e0f73e028bf420e5bdec2d95a4621ebbbcaf
author lecorguille
date Fri, 07 Apr 2017 07:56:16 -0400
parents 1dd90aa7815d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
1 #!/usr/local/public/bin/Rscript --vanilla --slave --no-site-file
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
2 # probmetab.r version="1.0.0"
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
3 # Author: Misharl Monsoor ABIMS TEAM mmonsoor@sb-roscoff.fr
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
4
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
5
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
6 # ----- LOG -----
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
7 log_file=file("log.txt", open = "wt")
0
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
8 sink(log_file)
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
9 sink(log_file, type = "out")
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
10
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
11 # ----- PACKAGE -----
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
12 cat("\tPACKAGE INFO\n")
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
13 pkgs=c("parallel","BiocGenerics", "Biobase", "Rcpp", "mzR", "igraph", "xcms","snow","CAMERA","batch","ProbMetab")
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
14 for(p in pkgs) {
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
15 suppressWarnings( suppressPackageStartupMessages( stopifnot( library(p, quietly=TRUE, logical.return=TRUE, character.only=TRUE))))
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
16 cat(p,"\t",as.character(packageVersion(p)),"\n",sep="")
0
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
17 }
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
18
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
19 source_local <- function(fname){
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
20 argv <- commandArgs(trailingOnly = FALSE)
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
21 base_dir <- dirname(substring(argv[grep("--file=", argv)], 8))
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
22 source(paste(base_dir, fname, sep="/"))
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
23 }
5
1dd90aa7815d planemo upload commit f9da57d32476742b887a77435eb77c70494ccf96
lecorguille
parents: 4
diff changeset
24
1dd90aa7815d planemo upload commit f9da57d32476742b887a77435eb77c70494ccf96
lecorguille
parents: 4
diff changeset
25 options(bitmapType='cairo')
1dd90aa7815d planemo upload commit f9da57d32476742b887a77435eb77c70494ccf96
lecorguille
parents: 4
diff changeset
26
0
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
27 cat("\n\n")
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
28
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
29
0
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
30 # ----- ARGUMENTS -----
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
31 cat("\tARGUMENTS INFO\n")
0
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
32 listArguments = parseCommandArgs(evaluate=FALSE) #interpretation of arguments given in command line as an R list of objects
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
33 write.table(as.matrix(listArguments), col.names=F, quote=F, sep='\t')
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
34
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
35
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
36
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
37 # ----- PROCESSING INFILE -----
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
38 cat("\tINFILE PROCESSING INFO\n")
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
39
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
40 # ----- INFILE PROCESSING -----
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
41
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
42 if(listArguments[["mode_acquisition"]]=="one") {
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
43 load(listArguments[["image"]])
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
44 cat("\t\tXA OBJECT INFO\n")
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
45 print(xa)
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
46
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
47 source_local("lib.r")
4
a1b528cba999 planemo upload commit 50069e075172852530c906581eb4497e733127b6
lecorguille
parents: 3
diff changeset
48 if (!exists("zipfile")) zipfile=NULL
a1b528cba999 planemo upload commit 50069e075172852530c906581eb4497e733127b6
lecorguille
parents: 3
diff changeset
49 if (!exists("singlefile")) singlefile=NULL
a1b528cba999 planemo upload commit 50069e075172852530c906581eb4497e733127b6
lecorguille
parents: 3
diff changeset
50 rawFilePath = getRawfilePathFromArguments(singlefile, zipfile, listArguments)
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
51 zipfile = rawFilePath$zipfile
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
52 singlefile = rawFilePath$singlefile
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
53 retrieveRawfileInTheWorkingDirectory(singlefile, zipfile)
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
54
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
55 if (!exists("variableMetadata")) variableMetadata= getVariableMetadata(xa);
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
56
0
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
57 } else if(listArguments[["inputs_mode"]]=="two"){
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
58
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
59 # POSITIVE
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
60 load(listArguments[["image_pos"]])
0
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
61
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
62 if (!exists("xa")) xaP=xsAnnotate_object
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
63 else xaP=xa
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
64 cat("\t\tXA-POSITIVE OBJECT INFO\n")
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
65 print(xaP)
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
66
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
67 if (!exists("variableMetadata")) variableMetadataP = getVariableMetadata(xa)
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
68 else variableMetadataP = variableMetadata
0
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
69
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
70 source_local("lib.r")
4
a1b528cba999 planemo upload commit 50069e075172852530c906581eb4497e733127b6
lecorguille
parents: 3
diff changeset
71 if (!exists("zipfile")) zipfile=NULL
a1b528cba999 planemo upload commit 50069e075172852530c906581eb4497e733127b6
lecorguille
parents: 3
diff changeset
72 if (!exists("singlefile")) singlefile=NULL
a1b528cba999 planemo upload commit 50069e075172852530c906581eb4497e733127b6
lecorguille
parents: 3
diff changeset
73 rawFilePath = getRawfilePathFromArguments(singlefile, zipfile, listArguments)
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
74 zipfilePos = rawFilePath$zipfile
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
75 singlefilePos = rawFilePath$singlefile
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
76 retrieveRawfileInTheWorkingDirectory(singlefilePos, zipfilePos)
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
77
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
78 # NEGATIVE
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
79 load(listArguments[["image_neg"]])
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
80
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
81 if (!exists("xa")) xaN=xsAnnotate_object
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
82 else xaN=xa
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
83 cat("\t\tXA-NEGATIVE OBJECT INFO\n")
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
84 print(xaP)
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
85
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
86 if (!exists("variableMetadata")) variableMetadataN = getVariableMetadata(xa)
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
87 else variableMetadataN = variableMetadata
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
88
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
89 source_local("lib.r")
4
a1b528cba999 planemo upload commit 50069e075172852530c906581eb4497e733127b6
lecorguille
parents: 3
diff changeset
90 if (!exists("zipfile")) zipfile=NULL
a1b528cba999 planemo upload commit 50069e075172852530c906581eb4497e733127b6
lecorguille
parents: 3
diff changeset
91 if (!exists("singlefile")) singlefile=NULL
a1b528cba999 planemo upload commit 50069e075172852530c906581eb4497e733127b6
lecorguille
parents: 3
diff changeset
92 rawFilePath = getRawfilePathFromArguments(singlefile, zipfile, listArguments)
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
93 zipfileNeg = rawFilePath$zipfile
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
94 singlefileNeg = rawFilePath$singlefile
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
95 retrieveRawfileInTheWorkingDirectory(singlefileNeg, zipfileNeg)
0
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
96 }
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
97
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
98 #Import the different functions
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
99 source_local("lib.r")
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
100 source_local("export.class.table-color-graph.R")
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
101
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
102 # ----- PROCESSING INFO -----
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
103 cat("\tMAIN PROCESSING INFO\n")
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
104
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
105 if(listArguments[["mode_acquisition"]]=="one") {
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
106 results=probmetab(xa=xa, variableMetadata=variableMetadata,listArguments=listArguments)
0
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
107 } else if(listArguments[["inputs_mode"]]=="two"){
3
f24b9c360a60 planemo upload commit dc4b1363a3fe83f195167f1f0b25c9728006e364
lecorguille
parents: 0
diff changeset
108 results=probmetab(xaP=xaP, xaN=xaN,variableMetadataP=variableMetadataP, variableMetadataN=variableMetadataN, listArguments=listArguments)
0
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
109 }
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
110 #delete the parameters to avoid the passage to the next tool in .RData image
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
111 #rm(listArguments)
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
112 cat("\tDONE\n")
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
113 #saving R data in .Rdata file to save the variables used in the present tool
3024c437371c planemo upload commit 25fd6a739741295e3f434e0be0286dee61e06825
mmonsoor
parents:
diff changeset
114 #save.image(paste("probmetab","RData",sep="."))