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

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

Author: gsee
Date: 2011-09-11 05:20:43 +0200 (Sun, 11 Sep 2011)
New Revision: 768

Modified:
   pkg/FinancialInstrument/R/synthetic.R
Log:
 - remove lines that that getInstrument now takes care of

Modified: pkg/FinancialInstrument/R/synthetic.R
===================================================================
--- pkg/FinancialInstrument/R/synthetic.R	2011-09-11 02:58:43 UTC (rev 767)
+++ pkg/FinancialInstrument/R/synthetic.R	2011-09-11 03:20:43 UTC (rev 768)
@@ -210,8 +210,6 @@
 	
 	# go get other instrument quantities from the root contract
 	root_contract<-try(getInstrument(root_id,silent=TRUE))
-    if (!is.instrument(root_contract)) root_contract <- try(getInstrument(root_id,type='future'),silent=TRUE)
-    if (!is.instrument(root_contract)) root_contract <- try(getInstrument(root_id,type='option'),silent=TRUE)
 	if(is.instrument(root_contract)){
 		if(is.null(currency)) currency <- root_contract$currency
 		if(is.null(multiplier)) multiplier <- root_contract$multiplier