Visualize fontcolor of criteria nodes is now black

gluc · Nov 15, 2017 · d025e39 · d025e39
1 parent fc4521b
commit d025e39
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/NEWS b/NEWS
@@ -1,5 +1,9 @@
 # All changes to ahp are documented here.
 
+## Version 0.2.12 (in progress)
+- FIX: Visualize fontcolor of criteria nodes is now black
+
+
 ## Version 0.2.11 (CRAN)
 - IMPROVE: Update to latest DiagrammeR updates
 - ADD: RunGUI now contains an optional port parameter

diff --git a/R/visualize.R b/R/visualize.R
@@ -12,7 +12,7 @@
 #' @importFrom yaml as.yaml
 #' @export
 Visualize <- function(ahpTree,
-                      criteriaNodesStyle = list(style = "filled,rounded", shape = "box", color = "honeydew4", fillcolor = "honeydew", penwidth = 4, fontname="helvetica"),
+                      criteriaNodesStyle = list(style = "filled,rounded", shape = "box", color = "honeydew4", fillcolor = "honeydew", penwidth = 4, fontname="helvetica", fontcolor = "black"),
                       alternativeNodesStyle = list(style = "filled,rounded", shape = "box", color = "thistle4", fillcolor = "thistle", penwidth = 4, fontname="helvetica"),
                       criteriaEdgesStyle = list(arrowhead = "vee", color = "grey35", penwidth = 2),
                       alternativeEdgesStyle = list(dir = "none", color = "grey35", penwidth = 2)