[Blotter-commits] r395 - pkg/blotter/R

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

Author: braverock
Date: 2010-09-18 22:11:22 +0200 (Sat, 18 Sep 2010)
New Revision: 395

Modified:
   pkg/blotter/R/addTxn.R
Log:
- change addTxn to be consistent w/ new xts subset code

Modified: pkg/blotter/R/addTxn.R
===================================================================
--- pkg/blotter/R/addTxn.R	2010-09-12 17:27:33 UTC (rev 394)
+++ pkg/blotter/R/addTxn.R	2010-09-18 20:11:22 UTC (rev 395)
@@ -43,7 +43,7 @@
 
     # FUNCTION
     # Compute transaction fees if a function was supplied
-    if (is.function(TxnFees)) txnfees <- TxnFees(TxnQty, TxnPrice) else txnfees<- eval(as.numeric(TxnFees))
+    if (is.function(TxnFees)) txnfees <- TxnFees(TxnQty, TxnPrice) else txnfees<- as.numeric(TxnFees)
     if(is.null(txnfees) | is.na(txnfees)) txnfees = 0
 
     # Calculate the value and average cost of the transaction