[Blotter-commits] r713 - pkg/quantstrat/R

[noreply at r-forge.r-project.org]

Author: braverock
Date: 2011-08-06 17:07:10 +0200 (Sat, 06 Aug 2011)
New Revision: 713

Modified:
   pkg/quantstrat/R/initialize.R
   pkg/quantstrat/R/strategy.R
Log:
- add init and wrapup slots to the strategy object

Modified: pkg/quantstrat/R/initialize.R
===================================================================
--- pkg/quantstrat/R/initialize.R	2011-08-06 15:05:52 UTC (rev 712)
+++ pkg/quantstrat/R/initialize.R	2011-08-06 15:07:10 UTC (rev 713)
@@ -30,7 +30,7 @@
     tmp_init$call<-match.call()
     class(tmp_init)<-'strat_init'
     
-    strategy$inits[[indexnum]]<-tmp_init
+    strategy$init[[indexnum]]<-tmp_init
     
     if (store) assign(strategy$name,strategy,envir=as.environment(.strategy))
     else return(strategy)

Modified: pkg/quantstrat/R/strategy.R
===================================================================
--- pkg/quantstrat/R/strategy.R	2011-08-06 15:05:52 UTC (rev 712)
+++ pkg/quantstrat/R/strategy.R	2011-08-06 15:07:10 UTC (rev 713)
@@ -46,6 +46,8 @@
                             signals = list(),
                             rules = rules,
                             constraints = NULL,
+                            init =list(),
+                            wrapup = list(),
                             call = match.call()
                     ),
                     class=c("strategy")