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

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

Author: braverock
Date: 2010-01-16 10:46:12 +0100 (Sat, 16 Jan 2010)
New Revision: 170

Modified:
   pkg/FinancialInstrument/R/instrument.R
Log:
- remove get from is. functions

Modified: pkg/FinancialInstrument/R/instrument.R
===================================================================
--- pkg/FinancialInstrument/R/instrument.R	2010-01-16 09:34:17 UTC (rev 169)
+++ pkg/FinancialInstrument/R/instrument.R	2010-01-16 09:46:12 UTC (rev 170)
@@ -19,7 +19,6 @@
 ## we should probably assign instruments into a special namespace and create get* functions.  Jeff?
 
 is.instrument <- function( x ) {
-  x <- get(x,pos=.instrument) #removed inherits=TRUE
   inherits( x, "instrument" )
 }
 
@@ -178,7 +177,6 @@
 }
 
 is.currency <- function( x ) {
-  x <- get(x,pos=.instrument) # REMOVED ,inherits=TRUE
   inherits( x, "currency" )
 }