fix error in color rescaling function

bzhanglab · Feb 28, 2019 · f491363 · f491363
1 parent ca2832f
commit f491363
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: sumer
 Title: SUmmarizing Multiple Enrichment analysis Results
-Version: 1.1.1
+Version: 1.1.2
 Authors@R: person("Zhiao", "Shi", email = "[email protected]", role = c("aut", "cre"))
 Description: Summarizes multiple enrichment analysis results with weighted
              set cover and affinity propagation clustering algorithms. It therefore reduces redundancy among enriched 

diff --git a/R/utils.R b/R/utils.R
@@ -41,7 +41,7 @@ computeNodeColor <- function(maxVal, minVal, val){
     maxColor <- 0.5;
     minColor <- 0;
   } else {
-    larger = Math.max(maxVal, Math.abs(minVal));
+    larger = max(maxVal, abs(minVal));
     maxVal <- larger;
     minVal <- -1.0*larger;
     maxColor <- 1;