hyperGeo Pvalue visualization

CityUHK-CompBio · Jun 12, 2018 · ba974b6 · ba974b6
1 parent fa8e2d0
commit ba974b6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: HTSanalyzeR2
 Type: Package
 Title: An R package for gene set enrichment and network analysis of various high-throughput data
-Version: 0.99.11
+Version: 0.99.12
 Author: Lina ZHU <zhulina0609@gmail.com>, Feng GAO <gaofeng21cn@gmail.com>, 
         Xiupei MEI <meixiupei@gmail.com>, Xin Wang <xinwang2hms@gmail.com>
 Maintainer: Lina ZHU <zhulina0609@gmail.com>

diff --git a/inst/templates/app.R b/inst/templates/app.R
@@ -87,7 +87,7 @@ create_data_table <- function(gscaObj, analysis, genesets) {
   res <- trim_result(res, digits = 3)
 
   gseaDispValue <- ifelse(is.null(gscaObj@para$nPermutations), "0", format((1/gscaObj@para$nPermutations), scientific=TRUE, digits = 1))
-  jsRenders <- list(GSEA = colValueRender(gseaDispValue), HyperGeo = colValueRender('1e-06'))
+  jsRenders <- list(GSEA = colValueRender(gseaDispValue), HyperGeo = colValueRender('<1e-06'))
 
   columnDefs <- list(list(targets = which(colnames(res) == "HyperGeo.Adj.Pvalue") - 1, render = jsRenders[["HyperGeo"]]),
                      list(targets = which(colnames(res) == "GSEA.Adj.Pvalue") - 1, render = jsRenders[["GSEA"]]))