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

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

Author: gsee
Date: 2011-08-22 23:41:10 +0200 (Mon, 22 Aug 2011)
New Revision: 735

Modified:
   pkg/FinancialInstrument/R/load.instruments.R
Log:
 only use 1st value of split_method

Modified: pkg/FinancialInstrument/R/load.instruments.R
===================================================================
--- pkg/FinancialInstrument/R/load.instruments.R	2011-08-22 21:32:09 UTC (rev 734)
+++ pkg/FinancialInstrument/R/load.instruments.R	2011-08-22 21:41:10 UTC (rev 735)
@@ -245,7 +245,7 @@
     default.return.class <- return.class
     default.dir <- dir
     default.extension <- extension
-    default.split_method <- split_method
+    default.split_method <- split_method[1]
        
     for(i in 1:length(Symbols)) {
         return.class <- getSymbolLookup()[[Symbols[[i]]]]$return.class
@@ -279,7 +279,7 @@
         split_method <- getSymbolLookup()[[Symbols[[i]]]]$split_method
         split_method <- ifelse(is.null(split_method), default.split_method, split_method)
 
-        switch(split_method,
+        switch(split_method[1],
                 days={
                     fr<-NULL
                     StartDate <- as.Date(from)