From 4c1a341282f68401af266f481e7eb540ccd2bd67 Mon Sep 17 00:00:00 2001
From: Eric Hung <naturalsmen@gmail.com>
Date: Thu, 4 Aug 2016 17:05:43 +0800
Subject: [PATCH] Fix not find function "fade" bug

Pass fade() to the environment of the plot object created by xts::plot.xts.
---
 R/chart_Series.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/chart_Series.R b/R/chart_Series.R
index e19165ba..e4afd14c 100644
--- 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,