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

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

Author: gsee
Date: 2011-06-29 18:34:53 +0200 (Wed, 29 Jun 2011)
New Revision: 649

Modified:
   pkg/FinancialInstrument/R/instrument.R
Log:
 - silence warning where we want getInstrument to fail

Modified: pkg/FinancialInstrument/R/instrument.R
===================================================================
--- pkg/FinancialInstrument/R/instrument.R	2011-06-29 13:06:12 UTC (rev 648)
+++ pkg/FinancialInstrument/R/instrument.R	2011-06-29 16:34:53 UTC (rev 649)
@@ -182,7 +182,7 @@
   ## and find the existing series from prior periods (probably years or months)
   ## and then add the first_traded and expires to the time series bu splicing
   id<-paste(primary_id, suffix_id,sep="_")
-  temp_series<-try(getInstrument(id),silent=TRUE)
+  temp_series<-try(getInstrument(id, silent=TRUE),silent=TRUE)
   if(inherits(temp_series,"future_series")) {
       message("updating existing first_traded and expires for ",id)
       temp_series$first_traded<-c(temp_series$first_traded,first_traded)
@@ -230,7 +230,7 @@
     ## and then add the first_traded and expires to the time series
     if(length(callput)==2) stop("value of callput must be specified as 'call' or 'put'")
     id<-paste(primary_id, suffix_id,sep="_")
-    temp_series<-try(getInstrument(id),silent=TRUE)
+    temp_series<-try(getInstrument(id, silent=TRUE),silent=TRUE)
     if(inherits(temp_series,"option_series")) {
         message("updating existing first_traded and expires for ", id)
         temp_series$first_traded<-c(temp_series$first_traded,first_traded)