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

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

Author: gsee
Date: 2011-09-30 20:17:55 +0200 (Fri, 30 Sep 2011)
New Revision: 808

Modified:
   pkg/FinancialInstrument/R/instrument.R
Log:
 instrument.auto did not know that SSF (single-stock futures) is a future_series

Modified: pkg/FinancialInstrument/R/instrument.R
===================================================================
--- pkg/FinancialInstrument/R/instrument.R	2011-09-30 08:51:52 UTC (rev 807)
+++ pkg/FinancialInstrument/R/instrument.R	2011-09-30 18:17:55 UTC (rev 808)
@@ -723,7 +723,7 @@
     if (any(pid$type == 'butterfly')) {
         return(butterfly(primary_id, currency=currency, defined.by='auto', ...))
     }
-    if (any(pid$type == 'future')) {
+    if (any(pid$type == 'future') || any(pid$type == 'SSF')) {
         root <- getInstrument(pid$root,silent=TRUE,type='future')
         if (is.instrument(root) && !inherits(root, 'future_series')) {
             return(future_series(primary_id,defined.by='auto',...))