# HG changeset patch
# User shian_su <registertonysu@gmail.com>
# Date 1412143243 -36000
# Node ID ebb4cb1e8e358e4610252f01d651a930f0b13b44
# Parent  c0a76e30d61b9494e59095d4f32b38a7d188c9bf
- Fixed BCV plot pdf not showing in the html output

diff -r c0a76e30d61b -r ebb4cb1e8e35 hairpinTool.R
--- a/hairpinTool.R	Tue Sep 30 16:36:12 2014 +1000
+++ b/hairpinTool.R	Wed Oct 01 16:00:43 2014 +1000
@@ -491,6 +491,7 @@
 pdf(bcvPdf)
 plotBCV(data, main="BCV Plot")
 newEntry <- c("BCV Plot (.pdf)", "bcv.pdf")
+linkData <- rbind(linkData, newEntry)
 invisible(dev.off())
 
 if (workMode=="classic") {