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

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

Author: bodanker
Date: 2010-01-21 01:57:00 +0100 (Thu, 21 Jan 2010)
New Revision: 193

Modified:
   pkg/FinancialInstrument/R/instrument.R
Log:
- corrected stock_tmp to stock_temp in stock()


Modified: pkg/FinancialInstrument/R/instrument.R
===================================================================
--- pkg/FinancialInstrument/R/instrument.R	2010-01-20 12:22:46 UTC (rev 192)
+++ pkg/FinancialInstrument/R/instrument.R	2010-01-21 00:57:00 UTC (rev 193)
@@ -50,10 +50,10 @@
 stock <- function(primary_id , currency , multiplier, identifiers = NULL, ...){
   stock_temp = instrument(primary_id , currency , multiplier , identifiers = identifiers, ..., type="stock" )
   ## now structure and return
-  assign(primary_id, structure( list(primary_id = stock_tmp$primary_id,
-                         currency = stock_tmp$currency,
-                         multiplier = stock_tmp$multiplier,
-                         identifiers = stock_tmp$identifiers
+  assign(primary_id, structure( list(primary_id = stock_temp$primary_id,
+                         currency = stock_temp$currency,
+                         multiplier = stock_temp$multiplier,
+                         identifiers = stock_temp$identifiers
                         ),
                     class=c("stock","instrument")
                   ), # end structure
@@ -220,4 +220,4 @@
 getInstrument <- function(x){
   get(x,pos=.instrument) #removed inherits=TRUE
   #TODO add Date support to instrument, to get the proper value given a specific date
-}
\ No newline at end of file
+}