[Blotter-commits] r120 - pkg/instrument/R

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

Author: peter_carl
Date: 2009-11-14 00:57:58 +0100 (Sat, 14 Nov 2009)
New Revision: 120

Modified:
   pkg/instrument/R/instrument.R
Log:
- fixed paste


Modified: pkg/instrument/R/instrument.R
===================================================================
--- pkg/instrument/R/instrument.R	2009-11-13 23:53:33 UTC (rev 119)
+++ pkg/instrument/R/instrument.R	2009-11-13 23:57:58 UTC (rev 120)
@@ -99,13 +99,13 @@
                          suffix_id = suffix_id,
                          first_traded = first_traded,
                          expires = expires,
-                         identifiers = identifiers,
+                         identifiers = identifiers
                         ),
                     class=c("future_series", "future", "instrument")
              ) # end structure
   }
 
-  assign(paste(primary_id, suffix_id), temp_series, pos=.instrument,inherits=TRUE)
+  assign(paste(primary_id, suffix_id, sep=""), temp_series, pos=.instrument,inherits=TRUE)
 }
 
 option <- function(primary_id , currency , multiplier , identifiers = NULL, ..., underlying_id){
@@ -142,13 +142,13 @@
                          suffix_id = suffix_id,
                          first_traded = first_traded,
                          expires = expires,
-                         identifiers = identifiers,
+                         identifiers = identifiers
                         ),
                     class=c("option_series", "option", "instrument")
              ) # end structure
   }
 
-  assign(paste(primary_id, suffix_id), temp_series, pos=.instrument,inherits=TRUE)
+  assign(paste(primary_id, suffix_id,sep=""), temp_series, pos=.instrument,inherits=TRUE)
 }
 
 currency <- function(primary_id , currency=NULL , multiplier=1 , identifiers = NULL, ...){