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

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

Author: bodanker
Date: 2014-11-06 21:05:03 +0100 (Thu, 06 Nov 2014)
New Revision: 1645

Modified:
   pkg/quantstrat/R/rules.R
Log:
- Fix #5978; thanks to Jonathan Owen for the report and patch


Modified: pkg/quantstrat/R/rules.R
===================================================================
--- pkg/quantstrat/R/rules.R	2014-11-01 20:32:11 UTC (rev 1644)
+++ pkg/quantstrat/R/rules.R	2014-11-06 20:05:03 UTC (rev 1645)
@@ -88,11 +88,11 @@
     tmp_rule<-list()
     if(!is.function(name) && isTRUE(storefun)) {
         if(!is.function(get(name))){
-            if(!is.function(get(paste("sig",name,sep='.')))){
+            if(!is.function(get(paste("rule",name,sep='.')))){
                 message(paste("Skipping rule",name,"because there is no function by that name to call"))
                 next()      
             } else {
-                name<-paste("sig",rule$name,sep='.')
+                name<-paste("rule",rule$name,sep='.')
             }
         }
         fn<-match.fun(name)
@@ -649,11 +649,11 @@
         if (!rule$path.dep==path.dep) next()
         if(!is.function(rule$name)) {
             if(!is.function(get(rule$name))){
-                if(!is.function(get(paste("sig",rule$name,sep='.')))){
+                if(!is.function(get(paste("rule",rule$name,sep='.')))){
                     message(paste("Skipping rule",rule$name,"because there is no function by that name to call"))
                     next()      
                 } else {
-                    rule$name<-paste("sig",rule$name,sep='.')
+                    rule$name<-paste("rule",rule$name,sep='.')
                 }
             }   
         }