Addressed EpiCompare Windows bug. Explicitly specify type in the shQu…

…ote command in report_header.r
neurogenomics · Feb 13, 2024 · efb099e · efb099e
1 parent 997e1a1
commit efb099e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: EpiCompare
 Title: Comparison, Benchmarking & QC of Epigenomic Datasets
-Version: 1.7.2
+Version: 1.7.3
 Authors@R: c(
     person(given = "Sera", family = "Choi", 
         email = "serachoi1230@gmail.com", 

diff --git a/R/report_header.R b/R/report_header.R
@@ -10,17 +10,21 @@
 report_header <- function(){ 
   paste0(
     "<div class='report-header'>",
-    "<a href=",shQuote("https://github.com/neurogenomics/EpiCompare"),
+    "<a href=",shQuote("https://github.com/neurogenomics/EpiCompare", type = "sh"),
     " target='_blank'>",
     "<code>EpiCompare</code>",
     "</a>",
     "<code>Report</code>",
-    "<a href=",shQuote("https://doi.org/doi:10.18129/B9.bioc.EpiCompare"),
+    "<a href=",shQuote("https://doi.org/doi:10.18129/B9.bioc.EpiCompare", type = "sh"),
     " target='_blank'>",
     "<img src=",
-    shQuote(system.file('hex','hex.png',package = 'EpiCompare')),
+    shQuote(system.file('hex','hex.png',package = 'EpiCompare'), type = "sh"),
     " height='100'",">",
     "</a>",
     "</div>"
   ) 
 }
+
+
+
+