In plotBins() medianColor=NULL disables median

b4winckler · May 14, 2012 · 64282ee · 64282ee
1 parent b5d1d93
commit 64282ee
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/bapp.R b/R/bapp.R
@@ -56,7 +56,8 @@ plotBins <- function(x, y,
         polygon(c(qx,rev(qx)), c(qm[2,],rev(qm[4,])), col=quartileColor)
 
     # Draw line on median
-    lines(qx, qm[3,], col=medianColor, lw=3)
+    if (!is.null(medianColor))
+        lines(qx, qm[3,], col=medianColor, lw=3)
 }
 
 bins <- function(x, n=5)