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

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

Author: braverock
Date: 2010-01-18 19:13:40 +0100 (Mon, 18 Jan 2010)
New Revision: 179

Modified:
   pkg/FinancialInstrument/R/instrument.R
Log:
- put get back into is.currency fn

Modified: pkg/FinancialInstrument/R/instrument.R
===================================================================
--- pkg/FinancialInstrument/R/instrument.R	2010-01-18 16:27:04 UTC (rev 178)
+++ pkg/FinancialInstrument/R/instrument.R	2010-01-18 18:13:40 UTC (rev 179)
@@ -177,6 +177,7 @@
 }
 
 is.currency <- function( x ) {
+  x<-getInstrument(x)
   inherits( x, "currency" )
 }