Mercurial > repos > lecorguille > xcms_summary

comparison xcms_summary.r @ 2:234df22cd722 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload
author lecorguille
date Wed, 24 Feb 2016 12:30:37 -0500
parents 457a68338c2f
children f5d7654148bd
comparison
equal deleted inserted replaced
1:457a68338c2f 2:234df22cd722
75 } 75 }
76 writehtml("</div>") 76 writehtml("</div>")
77 77
78 writehtml("<h2>Samples used:</h2>") 78 writehtml("<h2>Samples used:</h2>")
79 writehtml("<div><table>") 79 writehtml("<div><table>")
80 if (all(sampnames(xset) != sampleNamesList$sampleNamesMakeNames)) { 80 if (all(sampnames(xset) == sampleNamesList$sampleNamesMakeNames)) {
81 sampleNameHeaderHtml = paste("<th>sample</th>") 81 sampleNameHeaderHtml = paste("<th>sample</th>")
82 sampleNameHtml = paste("<td>",sampnames(xset),"</td>") 82 sampleNameHtml = paste("<td>",sampnames(xset),"</td>")
83 } else { 83 } else {
84 sampleNameHeaderHtml = paste("<th>sample</th><th>sample renamed</th>") 84 sampleNameHeaderHtml = paste("<th>sample</th><th>sample renamed</th>")
85 sampleNameHtml = paste("<td>",sampnames(xset),"</td><td>",sampleNamesList$sampleNamesMakeNames,"</td>") 85 sampleNameHtml = paste("<td>",sampnames(xset),"</td><td>",sampleNamesList$sampleNamesMakeNames,"</td>")
87 87
88 if (!exists("md5sumList")) { 88 if (!exists("md5sumList")) {
89 md5sumHeaderHtml = "" 89 md5sumHeaderHtml = ""
90 md5sumHtml = "" 90 md5sumHtml = ""
91 md5sumLegend="" 91 md5sumLegend=""
92 } else if (!is.null(md5sumList$removalBadCharacters)) { 92 } else if (is.null(md5sumList$removalBadCharacters)) {
93 md5sumHeaderHtml = paste("<th>md5sum<sup>*</sup></th>") 93 md5sumHeaderHtml = paste("<th>md5sum<sup>*</sup></th>")
94 md5sumHtml = paste("<td>",md5sumList$origin,"</td>") 94 md5sumHtml = paste("<td>",md5sumList$origin,"</td>")
95 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 chancged during the process." 95 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 chancged during the process."
96 } else { 96 } else {
97 md5sumHeaderHtml = paste("<th>md5sum<sup>*</sup></th><th>md5sum<sup>**</sup> after bad characters removal</th>") 97 md5sumHeaderHtml = paste("<th>md5sum<sup>*</sup></th><th>md5sum<sup>**</sup> after bad characters removal</th>")