Fix not find function "fade" bug

Pass fade() to the environment of the plot object created by xts::plot.xts.
joshuaulrich · Aug 10, 2016 · 4c1a341 · 4c1a341
1 parent ef12cce
commit 4c1a341
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/chart_Series.R b/R/chart_Series.R
@@ -292,6 +292,7 @@ chart_Series <- function(x,
     spacing <- 1
   cs$Env$theme$spacing <- spacing
   cs$Env$range.bars <- range.bars
+  cs$Env$fade <- fade
   exp <- expression(range.bars(xdata[xsubset],
                                type=range.bars.type,
                                spacing=theme$spacing,