[Blotter-commits] r814 - pkg/FinancialInstrument/R

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

Author: braverock
Date: 2011-10-05 21:17:52 +0200 (Wed, 05 Oct 2011)
New Revision: 814

Modified:
   pkg/FinancialInstrument/R/load.instruments.R
Log:
- move fr def. to outside switch, thanks to Mike Rothman for the bug report

Modified: pkg/FinancialInstrument/R/load.instruments.R
===================================================================
--- pkg/FinancialInstrument/R/load.instruments.R	2011-10-05 17:00:44 UTC (rev 813)
+++ pkg/FinancialInstrument/R/load.instruments.R	2011-10-05 19:17:52 UTC (rev 814)
@@ -292,10 +292,10 @@
         if(verbose) cat("loading ",Symbols[[i]],".....")
         split_method <- getSymbolLookup()[[Symbols[[i]]]]$split_method
         split_method <- ifelse(is.null(split_method), default.split_method, split_method)
-
+        fr<-NULL
+        
         switch(split_method[1],
                 days={
-                    fr<-NULL
                     StartDate <- as.Date(from) 
                     EndDate <- as.Date(to) 
                     date.vec <- as.Date(StartDate:EndDate)