Mercurial > repos > lecorguille > xcms_summary

annotate xcms_summary.r @ 46:18d050f7b9d4 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
author workflow4metabolomics
date Mon, 03 Feb 2025 14:42:34 +0000
parents 43122259be1f
children
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 -----
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
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")
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
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
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
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) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
17 argv <- commandArgs(trailingOnly = FALSE)
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
18 base_dir <- dirname(substring(argv[grep("--file=", argv)], 8))
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
19 source(paste(base_dir, fname, sep = "/"))
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
20 }
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
21 source_local("lib.r")
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
22
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
23 pkgs <- c("CAMERA", "batch")
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
24 loadAndDisplayPackages(pkgs)
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
25 cat("\n\n")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
26
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
27
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
28 # ----- FUNCTION -----
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
29 writehtml <- function(...) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
30 cat(..., "\n", file = htmlOutput, append = TRUE, sep = "")
44
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
31 }
9df658383852 "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dcc90f9cf76e6980c0a7d9698c89fab826e7adae"
workflow4metabolomics
parents: 43
diff changeset
32 writeraw <- function(htmlOutput, object, open = "at") {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
33 log_file <- file(htmlOutput, open = open)
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
34 sink(log_file)
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
35 sink(log_file, type = "output")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
36 print(object)
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
37 sink()
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
38 close(log_file)
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
39 }
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
40 getSampleNames <- function(xobject) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
41 if (class(xobject) == "xcmsSet") {
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
42 return(sampnames(xobject))
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
43 }
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
44 if (class(xobject) == "XCMSnExp") {
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
45 return(xobject@phenoData@data$sample_name)
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
46 }
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
47 }
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
48 getFilePaths <- function(xobject) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
49 if (class(xobject) == "xcmsSet") {
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
50 return(xobject@filepaths)
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
51 }
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
52 if (class(xobject) == "XCMSnExp") {
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
53 return(fileNames(xobject))
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
54 }
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
55 }
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
56 equalParams <- function(param1, param2) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
57 writeraw("param1.txt", param1, open = "wt")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
58 writeraw("param2.txt", param2, open = "wt")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
59 return(tools::md5sum("param1.txt") == tools::md5sum("param2.txt"))
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
60 }
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
61
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
62
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
63 # ----- ARGUMENTS -----
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
64
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
65 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
66
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
67
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
68 # ----- ARGUMENTS PROCESSING -----
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
69
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
70 # image is an .RData file necessary to use xset variable given by previous tools
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
71 load(args$image)
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 htmlOutput <- "summary.html"
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
74 if (!is.null(args$htmlOutput)) htmlOutput <- args$htmlOutput
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
75
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
76 user_email <- NULL
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
77 if (!is.null(args$user_email)) user_email <- args$user_email
0
6260844b9a17 planemo upload
lecorguille
parents:
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 XCMS 1.x
42
5d59db39939a "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 7234c5fb8350990733e882693248c0433eee5ff8"
workflow4metabolomics
parents: 39
diff changeset
80 if (exists("xset")) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
81 xobject <- xset
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
82 # retrocompatability
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
83 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
84 }
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
85 # if the RData come from CAMERA
43
297ee37840ef "planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 50478425b4773ebcb393c0e31f1e622b7406dcbb"
workflow4metabolomics
parents: 42
diff changeset
86 if (exists("xa")) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
87 xobject <- xa@xcmsSet
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
88 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
89 }
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
90 # 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
91 if (exists("xdata")) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
92 xobject <- xdata
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
93 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
94 }
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
95
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
96 if (!exists("xobject")) stop("You need at least a xdata, a xset or a xa object.")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
97
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
98
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
99 # ----- MAIN PROCESSING INFO -----
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
100 writehtml("<!DOCTYPE html>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
101 writehtml("<HTML lang='en'>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
102
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
103 writehtml("<HEAD>")
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
104 writehtml("<meta http-equiv='Content-Type' content='text/html; charset=UTF-8' />")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
105
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
106 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
107
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
108 writehtml("<style>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
109 writehtml("table, tr, td, th { border: 1px solid #000000; border-collapse:collapse; }")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
110 writehtml("td, th { padding: 5px; padding-right: 12px; }")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
111 writehtml("th { background: #898989; text-align:left;color: white;}")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
112 writehtml("h2 { color: #FFA212; }")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
113 writehtml("ul li { margin-bottom:10px; }")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
114 writehtml("</style>")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
115 writehtml("</HEAD>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
116
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
117 writehtml("<BODY>")
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
118 writehtml("<div><h1>___ XCMS analysis summary using Workflow4Metabolomics ___</h1>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
119 # to pass the planemo shed_test
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
120 if (user_email != "test@bx.psu.edu") {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
121 if (!is.null(user_email)) writehtml("By: ", user_email, " - ")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
122 writehtml("Date: ", format(Sys.time(), "%y%m%d-%H:%M:%S"))
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
123 }
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
124 writehtml("</div>")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
125
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
126 writehtml("<h2>Samples used:</h2>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
127 writehtml("<div><table>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
128 if (all(getSampleNames(xobject) == sampleNamesList$sampleNamesMakeNames)) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
129 sampleNameHeaderHtml <- paste0("<th>sample</th>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
130 sampleNameHtml <- paste0("<td>", getSampleNames(xobject), "</td>")
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
131 } else {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
132 sampleNameHeaderHtml <- paste0("<th>sample</th><th>sample renamed</th>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
133 sampleNameHtml <- paste0("<td>", getSampleNames(xobject), "</td><td>", sampleNamesList$sampleNamesMakeNames, "</td>")
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
134 }
17
a2908411620e planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 22c4e92909198328fc7439ff47e4546a273eb907
lecorguille
parents: 11
diff changeset
135
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
136 if (!exists("md5sumList")) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
137 md5sumHeaderHtml <- ""
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
138 md5sumHtml <- ""
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
139 md5sumLegend <- ""
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
140 } else if (is.null(md5sumList$removalBadCharacters)) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
141 md5sumHeaderHtml <- paste0("<th>md5sum<sup>*</sup></th>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
142 md5sumHtml <- paste0("<td>", md5sumList$origin, "</td>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
143 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."
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
144 } else {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
145 md5sumHeaderHtml <- paste0("<th>md5sum<sup>*</sup></th><th>md5sum<sup>**</sup> after bad characters removal</th>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
146 md5sumHtml <- paste0("<td>", md5sumList$origin, "</td><td>", md5sumList$removalBadCharacters, "</td>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
147 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/>"
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
148 }
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
149
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
150 writehtml("<tr>", sampleNameHeaderHtml, "<th>filename</th>", md5sumHeaderHtml, "</tr>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
151 writehtml(paste0("<tr>", sampleNameHtml, "<td>", getFilePaths(xobject), "</td>", md5sumHtml, "</tr>"))
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
152
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
153 writehtml("</table>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
154 writehtml(md5sumLegend)
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
155 writehtml("</div>")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
156
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
157 writehtml("<h2>Function launched:</h2>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
158 writehtml("<div><table>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
159 writehtml("<tr><th>timestamp<sup>***</sup></th><th>function</th><th>argument</th><th>value</th></tr>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
160 # XCMS 3.x
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
161 if (class(xobject) == "XCMSnExp") {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
162 xcmsFunction <- NULL
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
163 params <- NULL
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
164 for (processHistoryItem in processHistory(xobject)) {
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
165 if ((xcmsFunction == processType(processHistoryItem)) && equalParams(params, processParam(processHistoryItem))) {
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
166 next
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
167 }
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
168 timestamp <- processDate(processHistoryItem)
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
169 xcmsFunction <- processType(processHistoryItem)
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
170 params <- processParam(processHistoryItem)
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
171 writehtml("<tr><td>", timestamp, "</td><td>", xcmsFunction, "</td><td colspan='2'><pre>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
172 writeraw(htmlOutput, params)
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
173 writehtml("</pre></td></tr>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
174 }
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
175 }
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
176 # CAMERA and retrocompatability XCMS 1.x
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
177 if (exists("listOFlistArguments")) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
178 for (tool in names(listOFlistArguments)) {
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
179 listOFlistArgumentsDisplay <- listOFlistArguments[[tool]][!(names(listOFlistArguments[[tool]]) %in% argBlacklist)]
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
180
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
181 timestamp <- strsplit(tool, "_")[[1]][1]
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
182 xcmsFunction <- strsplit(tool, "_")[[1]][2]
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
183 writehtml("<tr><td rowspan='", length(listOFlistArgumentsDisplay), "'>", timestamp, "</td><td rowspan='", length(listOFlistArgumentsDisplay), "'>", xcmsFunction, "</td>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
184 line_begin <- ""
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
185 for (arg in names(listOFlistArgumentsDisplay)) {
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
186 writehtml(line_begin, "<td>", arg, "</td><td>", unlist(listOFlistArgumentsDisplay[arg][1]), "</td></tr>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
187 line_begin <- "<tr>"
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
188 }
29
3d4339594010 planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e384d6dd5f410799ec211f73bca0b5d5d7bc651e
lecorguille
parents: 25
diff changeset
189 }
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
190 }
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
191 writehtml("</table>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
192 writehtml("<br/><sup>***</sup>timestamp format: DD MM dd hh:mm:ss YYYY or yymmdd-hh:mm:ss")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
193 writehtml("</div>")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
194
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
195 if (class(xobject) == "XCMSnExp") {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
196 writehtml("<h2>Informations about the XCMSnExp object:</h2>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
197 writehtml("<div><pre>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
198 writeraw(htmlOutput, xobject)
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
199 writehtml("</pre></div>")
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
200 }
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
201
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
202 writehtml("<h2>Informations about the xcmsSet object:</h2>")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
203
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
204 writehtml("<div><pre>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
205 # Get the legacy xcmsSet object
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
206 xset <- getxcmsSetObject(xobject)
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
207 writeraw(htmlOutput, xset)
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
208 writehtml("</pre></div>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
209
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
210 # CAMERA
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
211 if (exists("xa")) {
46
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
212 writehtml("<h2>Informations about the CAMERA object:</h2>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
213 writehtml("<div>")
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
214 writehtml("Number of pcgroup: ", length(xa@pspectra))
18d050f7b9d4 planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit 95721ced8347c09e79340e6d67ecb41c5cc64163
workflow4metabolomics
parents: 45
diff changeset
215 writehtml("</div>")
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
216 }
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
217
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
218 writehtml("<h2>Citations:</h2>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
219 writehtml("<div><ul>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
220 writehtml("<li>To cite the <b>XCMS</b> package in publications use:")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
221 writehtml("<ul>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
222 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>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
223 writehtml("<li>", "Ralf Tautenhahn, Christoph Boettcher, Steffen Neumann: Highly sensitive feature detection for high resolution LC/MS BMC Bioinformatics, 9:504 (2008)", "</li>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
224 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>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
225 writehtml("</ul>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
226 writehtml("</li>")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
227
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
228 writehtml("<li>To cite the <b>CAMERA</b> package in publications use:")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
229 writehtml("<ul>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
230 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>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
231 writehtml("</ul>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
232 writehtml("</li>")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
233
45
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
234 writehtml("<li>To cite the <b>Workflow4Metabolimics (W4M)</b> project in publications use:")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
235 writehtml("<ul>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
236 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>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
237 writehtml("</ul>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
238 writehtml("</li>")
43122259be1f planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics/ commit eca29d4347fe2f4802091c4a06715232a6fd9253
workflow4metabolomics
parents: 44
diff changeset
239 writehtml("</ul></div>")
0
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
240
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
241 writehtml("</BODY>")
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
242
6260844b9a17 planemo upload
lecorguille
parents:
diff changeset
243 writehtml("</HTML>")