[R-SIG-Finance] blotter_0.9.1643 pennyPerShare() not reflecting addTxn usage

[Daniel Cegiełka]

2014-10-31 3:08 GMT+01:00 Gei Lin <gmonaie at gmail.com>:
> within blotter::addTxn(), there's a call using the TxnFees argument as
> a function
>
> if (is.function(TxnFees)) *    txnfees <- TxnFees(TxnQty, TxnPrice)*
>
> pennyPerShare(), referenced as an example TxnFee function, doesn't
> have its arguments set to reflect this yet
>
>> blotter::pennyPerSharefunction (TxnQty)
> {
>     return(abs(TxnQty) * -0.01)
> }

It should be something like:

pennyPerShare <- function(TxnQty, ...) {
return(abs(TxnQty) * -0.01)
}

thx,
Daniel