Mercurial > repos > lecorguille > xcms_summary

comparison xcms_summary.r @ 1:768a8069bb8f 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:32:06 -0500
parents 6260844b9a17
children 0b87dcf08f72
comparison
equal deleted inserted replaced
0:6260844b9a17 1:768a8069bb8f
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>")
98 md5sumHtml = paste("<td>",md5sumList$origin,"</td><td>",md5sumList$origin,"</td>") 98 md5sumHtml = paste("<td>",md5sumList$origin,"</td><td>",md5sumList$removalBadCharacters,"</td>")
99 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.<br/><sup>**</sup>Because some bad characters (eg: accent) were removed from your original file, the checksum have changed too.<br/>" 99 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.<br/><sup>**</sup>Because some bad characters (eg: accent) were removed from your original file, the checksum have changed too.<br/>"
100 } 100 }
101 101
102 writehtml("<tr>",sampleNameHeaderHtml,"<th>filename</th>",md5sumHeaderHtml,"</tr>") 102 writehtml("<tr>",sampleNameHeaderHtml,"<th>filename</th>",md5sumHeaderHtml,"</tr>")
103 writehtml(paste("<tr>",sampleNameHtml,"<td>",xset@filepaths,"</td>",md5sumHtml,"</tr>")) 103 writehtml(paste("<tr>",sampleNameHtml,"<td>",xset@filepaths,"</td>",md5sumHtml,"</tr>"))