Update bugs for addVo

Match the laegend color of last volume in subset period with the last bar color. Update the legend volume to be in millions.
joshuaulrich · Aug 20, 2016 · 1559d58 · 1559d58
1 parent 1eed85f
commit 1559d58
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/addVo.R b/R/addVo.R
@@ -57,8 +57,8 @@
     frame <- get_frame(),
     lc <- xts:::legend.coords("topleft", xlim, ylim[[frame]]),
     legend(x = lc$x, y = lc$y, 
-           legend = c(paste("Volume (",vol.scale[[2]],"):",sep=''),format(last(vo[xsubset]),big.mark=',')), 
-           text.col = c(theme$fg, last(theme$bar.col)), 
+           legend = c(paste("Volume (",vol.scale[[2]],"):",sep=''),format(last(TA$vo[xsubset]),big.mark=',')), 
+           text.col = c(theme$fg, last(theme$bar.col[xsubset])), 
            xjust = lc$xjust, 
            yjust = lc$yjust, 
            bty = "n",