# HG changeset patch
# User shian_su <registertonysu@gmail.com>
# Date 1421040908 -39600
# Node ID 525bf4364896591e5313371ef135693283e1d908
# Parent  5a917ea5bed2f703246c1e3febe55b32eacb1e5d
- Fixed sample reads filter statistics a bit more

diff -r 5a917ea5bed2 -r 525bf4364896 hairpinTool.R
--- a/hairpinTool.R	Mon Jan 12 16:31:48 2015 +1100
+++ b/hairpinTool.R	Mon Jan 12 16:35:08 2015 +1100
@@ -988,7 +988,7 @@
   ListItem(tempStr)
 }
 
-if (sampleReq != 0) {
+if (readReq != 0) {
   tempStr <- paste("Samples that did not produce more than", readReq,
                    "counts were filtered out.")
   ListItem(tempStr)