Mercurial > repos > lecorguille > xcms_summary

annotate xcms_summary.r @ 44:9df658383852 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
author workflow4metabolomics
date Wed, 07 Apr 2021 10:32:26 +0000
parents 297ee37840ef
children 43122259be1f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9
dc6b3773f8de planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 1bf8810447bdd1268f67bfb64ead95ce82d8d85c
lecorguille
parents: 6
diff changeset
1 #!/usr/bin/env Rscript
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
2
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
3
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
4
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
5 # ----- ARGUMENTS BLACKLIST -----
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
6 #xcms.r
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
7 argBlacklist <- c("zipfile", "singlefile_galaxyPath", "singlefile_sampleName", "xfunction", "xsetRdataOutput", "sampleMetadataOutput", "ticspdf", "bicspdf", "rplotspdf")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
8 #CAMERA.r
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
9 argBlacklist <- c(argBlacklist, "dataMatrixOutput", "variableMetadataOutput", "new_file_path")
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
10
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
11
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
12 # ----- PACKAGE -----
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
13 cat("\tSESSION INFO\n")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
14
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
15 #Import the different functions
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
16 source_local <- function(fname) {
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
17 argv <- commandArgs(trailingOnly = FALSE); base_dir <- dirname(substring(argv[grep("--file=", argv)], 8)); source(paste(base_dir, fname, sep = "/"))
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
18 }
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
19 source_local("lib.r")
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
20
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
21 pkgs <- c("CAMERA", "batch")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
22 loadAndDisplayPackages(pkgs)
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
23 cat("\n\n");
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
24
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
25
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
26 # ----- FUNCTION -----
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
27 writehtml <- function(...) {
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
28 cat(..., "\n", file = htmlOutput, append = TRUE, sep = "")
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
29 }
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
30 writeraw <- function(htmlOutput, object, open = "at") {
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
31 log_file <- file(htmlOutput, open = open)
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
32 sink(log_file)
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
33 sink(log_file, type = "output")
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
34 print(object)
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
35 sink()
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
36 close(log_file)
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
37 }
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
38 getSampleNames <- function(xobject) {
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
39 if (class(xobject) == "xcmsSet")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
40 return(sampnames(xobject))
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
41 if (class(xobject) == "XCMSnExp")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
42 return(xobject@phenoData@data$sample_name)
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
43 }
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
44 getFilePaths <- function(xobject) {
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
45 if (class(xobject) == "xcmsSet")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
46 return(xobject@filepaths)
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
47 if (class(xobject) == "XCMSnExp")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
48 return(fileNames(xobject))
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
49 }
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
50 equalParams <- function(param1, param2) {
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
51 writeraw("param1.txt", param1, open = "wt")
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
52 writeraw("param2.txt", param2, open = "wt")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
53 return(tools::md5sum("param1.txt") == tools::md5sum("param2.txt"))
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
54 }
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
55
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
56
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
57 # ----- ARGUMENTS -----
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
58
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
59 args <- parseCommandArgs(evaluate = FALSE) #interpretation of arguments given in command line as an R list of objects
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
60
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
61
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
62 # ----- ARGUMENTS PROCESSING -----
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
63
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
64 #image is an .RData file necessary to use xset variable given by previous tools
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
65 load(args$image);
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
66
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
67 htmlOutput <- "summary.html"
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
68 if (!is.null(args$htmlOutput)) htmlOutput <- args$htmlOutput;
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
69
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
70 user_email <- NULL
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
71 if (!is.null(args$user_email)) user_email <- args$user_email;
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
72
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
73 # if the RData come from XCMS 1.x
42
5d59db39939a "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 7234c5fb8350990733e882693248c0433eee5ff8"
workflow4metabolomics
parents: 39
diff changeset
74 if (exists("xset")) {
5d59db39939a "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 7234c5fb8350990733e882693248c0433eee5ff8"
workflow4metabolomics
parents: 39
diff changeset
75 xobject <- xset
5d59db39939a "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 7234c5fb8350990733e882693248c0433eee5ff8"
workflow4metabolomics
parents: 39
diff changeset
76 # retrocompatability
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
77 if (!exists("sampleNamesList")) sampleNamesList <- list("sampleNamesMakeNames" = make.names(sampnames(xobject)))
42
5d59db39939a "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 7234c5fb8350990733e882693248c0433eee5ff8"
workflow4metabolomics
parents: 39
diff changeset
78 }
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
79 # if the RData come from CAMERA
43
297ee37840ef "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 50478425b4773ebcb393c0e31f1e622b7406dcbb"
workflow4metabolomics
parents: 42
diff changeset
80 if (exists("xa")) {
297ee37840ef "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 50478425b4773ebcb393c0e31f1e622b7406dcbb"
workflow4metabolomics
parents: 42
diff changeset
81 xobject <- xa@xcmsSet
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
82 if (!exists("sampleNamesList")) sampleNamesList <- list("sampleNamesMakeNames" = make.names(xa@xcmsSet@phenoData$sample_name))
43
297ee37840ef "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 50478425b4773ebcb393c0e31f1e622b7406dcbb"
workflow4metabolomics
parents: 42
diff changeset
83 }
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
84 # if the RData come from XCMS 3.x
42
5d59db39939a "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 7234c5fb8350990733e882693248c0433eee5ff8"
workflow4metabolomics
parents: 39
diff changeset
85 if (exists("xdata")) {
5d59db39939a "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 7234c5fb8350990733e882693248c0433eee5ff8"
workflow4metabolomics
parents: 39
diff changeset
86 xobject <- xdata
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
87 if (!exists("sampleNamesList")) sampleNamesList <- list("sampleNamesMakeNames" = make.names(xdata@phenoData@data$sample_name))
42
5d59db39939a "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 7234c5fb8350990733e882693248c0433eee5ff8"
workflow4metabolomics
parents: 39
diff changeset
88 }
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
89
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
90 if (!exists("xobject")) stop("You need at least a xdata, a xset or a xa object.")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
91
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
92
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
93 # ----- MAIN PROCESSING INFO -----
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
94 writehtml("<!DOCTYPE html>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
95 writehtml("<HTML lang='en'>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
96
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
97 writehtml("<HEAD>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
98 writehtml("<meta http-equiv='Content-Type' content='text/html; charset=UTF-8' />")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
99
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
100 writehtml("<title>[W4M] XCMS analysis summary</title>")
17
a2908411620e planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 22c4e92909198328fc7439ff47e4546a273eb907
lecorguille
parents: 11
diff changeset
101
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
102 writehtml("<style>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
103 writehtml("table, tr, td, th { border: 1px solid #000000; border-collapse:collapse; }")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
104 writehtml("td, th { padding: 5px; padding-right: 12px; }")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
105 writehtml("th { background: #898989; text-align:left;color: white;}")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
106 writehtml("h2 { color: #FFA212; }")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
107 writehtml("ul li { margin-bottom:10px; }")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
108 writehtml("</style>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
109 writehtml("</HEAD>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
110
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
111 writehtml("<BODY>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
112 writehtml("<div><h1>___ XCMS analysis summary using Workflow4Metabolomics ___</h1>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
113 # to pass the planemo shed_test
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
114 if (user_email != "test@bx.psu.edu") {
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
115 if (!is.null(user_email)) writehtml("By: ", user_email, " - ")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
116 writehtml("Date: ", format(Sys.time(), "%y%m%d-%H:%M:%S"))
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
117 }
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
118 writehtml("</div>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
119
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
120 writehtml("<h2>Samples used:</h2>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
121 writehtml("<div><table>")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
122 if (all(getSampleNames(xobject) == sampleNamesList$sampleNamesMakeNames)) {
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
123 sampleNameHeaderHtml <- paste0("<th>sample</th>")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
124 sampleNameHtml <- paste0("<td>", getSampleNames(xobject), "</td>")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
125 } else {
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
126 sampleNameHeaderHtml <- paste0("<th>sample</th><th>sample renamed</th>")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
127 sampleNameHtml <- paste0("<td>", getSampleNames(xobject), "</td><td>", sampleNamesList$sampleNamesMakeNames, "</td>")
17
a2908411620e planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 22c4e92909198328fc7439ff47e4546a273eb907
lecorguille
parents: 11
diff changeset
128 }
a2908411620e planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 22c4e92909198328fc7439ff47e4546a273eb907
lecorguille
parents: 11
diff changeset
129
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
130 if (!exists("md5sumList")) {
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
131 md5sumHeaderHtml <- ""
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
132 md5sumHtml <- ""
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
133 md5sumLegend <- ""
5
11df21afc204 planemo upload
lecorguille
parents: 4
diff changeset
134 } else if (is.null(md5sumList$removalBadCharacters)) {
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
135 md5sumHeaderHtml <- paste0("<th>md5sum<sup>*</sup></th>")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
136 md5sumHtml <- paste0("<td>", md5sumList$origin, "</td>")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
137 md5sumLegend <- "<br/><sup>*</sup>The program md5sum is designed to verify data integrity. So you can check if the data were uploaded correctly or if the data were changed during the process."
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
138 } else {
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
139 md5sumHeaderHtml <- paste0("<th>md5sum<sup>*</sup></th><th>md5sum<sup>**</sup> after bad characters removal</th>")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
140 md5sumHtml <- paste0("<td>", md5sumList$origin, "</td><td>", md5sumList$removalBadCharacters, "</td>")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
141 md5sumLegend <- "<br/><sup>*</sup>The program md5sum is designed to verify data integrity. So you can check if the data were uploaded correctly or if the data were changed during the process.<br/><sup>**</sup>Because some bad characters (eg: accent) were removed from your original file, the checksum have changed too.<br/>"
17
a2908411620e planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 22c4e92909198328fc7439ff47e4546a273eb907
lecorguille
parents: 11
diff changeset
142 }
a2908411620e planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 22c4e92909198328fc7439ff47e4546a273eb907
lecorguille
parents: 11
diff changeset
143
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
144 writehtml("<tr>", sampleNameHeaderHtml, "<th>filename</th>", md5sumHeaderHtml, "</tr>")
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
145 writehtml(paste0("<tr>", sampleNameHtml, "<td>", getFilePaths(xobject), "</td>", md5sumHtml, "</tr>"))
17
a2908411620e planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 22c4e92909198328fc7439ff47e4546a273eb907
lecorguille
parents: 11
diff changeset
146
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
147 writehtml("</table>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
148 writehtml(md5sumLegend)
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
149 writehtml("</div>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
150
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
151 writehtml("<h2>Function launched:</h2>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
152 writehtml("<div><table>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
153 writehtml("<tr><th>timestamp<sup>***</sup></th><th>function</th><th>argument</th><th>value</th></tr>")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
154 # XCMS 3.x
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
155 if (class(xobject) == "XCMSnExp") {
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
156 xcmsFunction <- NULL
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
157 params <- NULL
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
158 for (processHistoryItem in processHistory(xobject)) {
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
159 if ((xcmsFunction == processType(processHistoryItem)) && equalParams(params, processParam(processHistoryItem)))
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
160 next
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
161 timestamp <- processDate(processHistoryItem)
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
162 xcmsFunction <- processType(processHistoryItem)
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
163 params <- processParam(processHistoryItem)
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
164 writehtml("<tr><td>", timestamp, "</td><td>", xcmsFunction, "</td><td colspan='2'><pre>")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
165 writeraw(htmlOutput, params)
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
166 writehtml("</pre></td></tr>")
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
167 }
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
168 }
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
169 # CAMERA and retrocompatability XCMS 1.x
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
170 if (exists("listOFlistArguments")) {
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
171 for (tool in names(listOFlistArguments)) {
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
172 listOFlistArgumentsDisplay <- listOFlistArguments[[tool]][!(names(listOFlistArguments[[tool]]) %in% argBlacklist)]
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
173
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
174 timestamp <- strsplit(tool, "_")[[1]][1]
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
175 xcmsFunction <- strsplit(tool, "_")[[1]][2]
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
176 writehtml("<tr><td rowspan='", length(listOFlistArgumentsDisplay), "'>", timestamp, "</td><td rowspan='", length(listOFlistArgumentsDisplay), "'>", xcmsFunction, "</td>")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
177 line_begin <- ""
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
178 for (arg in names(listOFlistArgumentsDisplay)) {
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
179 writehtml(line_begin, "<td>", arg, "</td><td>", unlist(listOFlistArgumentsDisplay[arg][1]), "</td></tr>")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
180 line_begin <- "<tr>"
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
181 }
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
182 }
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
183 }
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
184 writehtml("</table>")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
185 writehtml("<br/><sup>***</sup>timestamp format: DD MM dd hh:mm:ss YYYY or yymmdd-hh:mm:ss")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
186 writehtml("</div>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
187
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
188 if (class(xobject) == "XCMSnExp") {
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
189 writehtml("<h2>Informations about the XCMSnExp object:</h2>")
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
190
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
191 writehtml("<div><pre>")
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
192 writeraw(htmlOutput, xobject)
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
193 writehtml("</pre></div>")
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
194 }
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
195
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
196 writehtml("<h2>Informations about the xcmsSet object:</h2>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
197
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
198 writehtml("<div><pre>")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
199 # Get the legacy xcmsSet object
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
200 xset <- getxcmsSetObject(xobject)
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
201 writeraw(htmlOutput, xset)
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
202 writehtml("</pre></div>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
203
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
204 # CAMERA
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
205 if (exists("xa")) {
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
206 writehtml("<h2>Informations about the CAMERA object:</h2>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
207
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
208 writehtml("<div>")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
209 writehtml("Number of pcgroup: ", length(xa@pspectra))
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
210 writehtml("</div>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
211 }
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
212
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
213 writehtml("<h2>Citations:</h2>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
214 writehtml("<div><ul>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
215 writehtml("<li>To cite the <b>XCMS</b> package in publications use:")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
216 writehtml("<ul>")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
217 writehtml("<li>", "Smith, C.A. and Want, E.J. and O'Maille, G. and Abagyan,R. and Siuzdak, G.XCMS: Processing mass spectrometry data for metabolite profiling using nonlinear peak alignment, matching and identification, Analytical Chemistry, 78:779-787 (2006)", "</li>")
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
218 writehtml("<li>", "Ralf Tautenhahn, Christoph Boettcher, Steffen Neumann: Highly sensitive feature detection for high resolution LC/MS BMC Bioinformatics, 9:504 (2008)", "</li>")
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
219 writehtml("<li>", "H. Paul Benton, Elizabeth J. Want and Timothy M. D. Ebbels Correction of mass calibration gaps in liquid chromatography-mass spectrometry metabolomics data Bioinformatics, 26:2488 (2010)", "</li>")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
220 writehtml("</ul>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
221 writehtml("</li>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
222
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
223 writehtml("<li>To cite the <b>CAMERA</b> package in publications use:")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
224 writehtml("<ul>")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
225 writehtml("<li>", "Kuhl, C., Tautenhahn, R., Boettcher, C., Larson, T. R. and Neumann,S. CAMERA: an integrated strategy for compound spectra extraction and annotation of liquid chromatography/mass spectrometry data sets. Analytical Chemistry, 84:283-289 (2012)", "</li>")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
226 writehtml("</ul>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
227 writehtml("</li>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
228
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
229 writehtml("<li>To cite the <b>Workflow4Metabolimics (W4M)</b> project in publications use:")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
230 writehtml("<ul>")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
231 writehtml("<li>", "Franck Giacomoni, Gildas Le Corguillé, Misharl Monsoor, Marion Landi, Pierre Pericard, Mélanie Pétéra, Christophe Duperier, Marie Tremblay-Franco, Jean-François Martin, Daniel Jacob, Sophie Goulitquer, Etienne A. Thévenot and Christophe Caron (2014). Workflow4Metabolomics: A collaborative research infrastructure for computational metabolomics. Bioinformatics doi:10.1093/bioinformatics/btu813", "</li>")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
232 writehtml("</ul>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
233 writehtml("</li>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
234 writehtml("</ul></div>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
235
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
236 writehtml("</BODY>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
237
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
238 writehtml("</HTML>")