Mercurial > repos > lecorguille > xcms_summary

comparison xcms_summary.r @ 2:0b87dcf08f72 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author lecorguille
date Fri, 19 Feb 2016 11:39:42 -0500
parents 768a8069bb8f
children 89a8b5ff3e44
comparison
equal deleted inserted replaced
1:768a8069bb8f 2:0b87dcf08f72
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>")