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

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

Author: opentrades
Date: 2012-08-28 18:30:18 +0200 (Tue, 28 Aug 2012)
New Revision: 1141

Modified:
   pkg/blotter/R/addTxn.R
Log:
fixed error introduced in r1132 checking if TxnFees is function



Modified: pkg/blotter/R/addTxn.R
===================================================================
--- pkg/blotter/R/addTxn.R	2012-08-28 01:45:37 UTC (rev 1140)
+++ pkg/blotter/R/addTxn.R	2012-08-28 16:30:18 UTC (rev 1141)
@@ -86,7 +86,7 @@
     # FUNCTION
     # Coerce the transaction fees to a function if a string was supplied
     
-    if (is.character(TxnFees)) {
+    if(is.character(TxnFees) && is.function(TxnFees)) {
         TF <- try(match.fun(TxnFees))
         if (!inherits(TF,"try-error")) TxnFees<-TF
     }