Fix bar color bug when subsetting

Pass subsetted bar.color to the histogram.
joshuaulrich · Aug 13, 2016 · b93bbb5 · b93bbb5
1 parent b68c0ea
commit b93bbb5
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/R/addVo.R b/R/addVo.R
@@ -26,10 +26,10 @@
     log.scale <- ifelse(x$Env$log.scale,"y","")
 
     bar.col <- if(color.vol) {
-      theme$bar.col
-    } else theme$border.col
+      theme$bar.col[xsubset]
+    } else theme$border.col[xsubset]
 
-    border.col <- theme$border.col
+    border.col <- theme$border.col[xsubset]
     min.vol <- min(vo)
 
     if(x$Env$theme$thin) {
@@ -105,8 +105,6 @@
   border.col <- ifelse(rep(is.null(lchob$Env$theme$border),NROW(xdata[,1])),
                        bar.col,lchob$Env$theme$border)
 
-  bar.col <- bar.col[lchob$Env$xsubset]
-
   lchob$Env$theme$border.col <- border.col
   lchob$Env$theme$bar.col <- bar.col