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

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

Author: gsee
Date: 2011-06-22 19:14:24 +0200 (Wed, 22 Jun 2011)
New Revision: 631

Modified:
   pkg/FinancialInstrument/R/instrument.R
Log:
-unhide option_series names

Modified: pkg/FinancialInstrument/R/instrument.R
===================================================================
--- pkg/FinancialInstrument/R/instrument.R	2011-06-14 02:11:59 UTC (rev 630)
+++ pkg/FinancialInstrument/R/instrument.R	2011-06-22 17:14:24 UTC (rev 631)
@@ -274,7 +274,7 @@
         strike <- as.numeric(substr(si,8,15))/1000
 #        local <- paste(symbol, si, sep="   ")      
 		clean.si <- paste(expiry,right,strike,sep="")		
-		primary_id <- paste(".", symbol, "_", clean.si, sep="")
+		primary_id <- paste(symbol, "_", clean.si, sep="")
 
 		#create currency if it doesn't exist	#?? Any reason not to ??	
 		tmpccy <- try(getInstrument(currency,silent=TRUE),silent=TRUE)