diff xcms_summary.r @ 1:768a8069bb8f draft

Uploaded

--- a/xcms_summary.r	Fri Feb 19 11:00:57 2016 -0500
+++ b/xcms_summary.r	Fri Feb 19 11:32:06 2016 -0500
@@ -89,13 +89,13 @@
             md5sumHeaderHtml = ""
             md5sumHtml = ""
             md5sumLegend=""
-        } else if (!is.null(md5sumList$removalBadCharacters)) {
+        } else if (is.null(md5sumList$removalBadCharacters)) {
             md5sumHeaderHtml = paste("<th>md5sum<sup>*</sup></th>")
             md5sumHtml = paste("<td>",md5sumList$origin,"</td>")
             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."
         } else {
             md5sumHeaderHtml = paste("<th>md5sum<sup>*</sup></th><th>md5sum<sup>**</sup> after bad characters removal</th>")
-            md5sumHtml = paste("<td>",md5sumList$origin,"</td><td>",md5sumList$origin,"</td>")
+            md5sumHtml = paste("<td>",md5sumList$origin,"</td><td>",md5sumList$removalBadCharacters,"</td>")
             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/>"
         }