[R-SIG-Finance] blotter->chart.Posn -- 'no transactions/position to chart'

[Mark Knecht]

Hi,
   I wonder if someone can help me with this error message "no
transactions/positions to chart'? I seem to get this in a lot of my
programs so I created a small self-contained program that also does
it. It sort of comes and goes. I figure maybe I'm doing something
wrong earlier in the program but I haven't found it.

   Data does exist prior to the transaction, and there is a
transaction, so I'm lost as to what chart.Posn is upset with me about.

   Here's what I see when I run the code below:

> getTxns("Equity","VTI")
           Txn.Qty Txn.Price Txn.Fees Txn.Value Txn.Avg.Cost Net.Txn.Realized.PL
1990-01-01       0      0.00        0         0         0.00                   0
2001-06-18     100     47.41        0      4741        47.41                   0
> head(VTI)
           VTI.Open VTI.High  VTI.Low VTI.Close VTI.Volume VTI.Adjusted
2001-06-15 47.08257 47.57527 46.87020  47.28645  1256529.6        44.81
2001-06-18 47.41387 47.49882 46.98488  46.98488   332673.1        44.53
2001-06-19 47.69845 47.71119 46.92117  47.11655  2092568.0        44.65
2001-06-20 47.04010 47.63474 47.04010  47.61350   560341.1        45.12
2001-06-21 47.57102 48.18690 47.46484  47.99577   282995.8        45.48
2001-06-22 47.95329 47.95329 47.46484  47.68995   212600.0        45.19
>
> chart.Posn("Equity", Symbol = "VTI", Dates = "2001-06-15")
Error in chart.Posn("Equity", Symbol = "VTI", Dates = "2001-06-15") :
  no transactions/positions to chart

   If it matters, I'm running Gentoo Linux and built blotter and
accompanying programs about 1.5 weeks ago.

Thanks,
Mark




library(blotter)

MyPortfolios = c("Equity")

MySymbols = list()
MySymbols[[1]]= c("VTI","VEU")

currency("USD")

Date_Start = "1990-01-01"
Date_End = format(Sys.time(), "%Y-%m-%d")
Sys.setenv(TZ = "UTC")

stock(MySymbols[[1]], currency = "USD", multiplier = 1)

suppressWarnings(rm("account.ETF_Momentum", pos = .blotter))
suppressWarnings(rm("portfolio.Equity", pos = .blotter))

initPortf(MyPortfolios[1], as.list(MySymbols[[1]]), initDate = "1990-01-01")
initAcct("ETF_Momentum", MyPortfolios, initDate = "1990-01-01", initEq = 1e+05)

getSymbols(MySymbols[[1]], from = Date_Start, to = Date_End, adjust = T)

addTxn("Equity", Symbol = "VTI",  TxnQty = 100,  TxnPrice = 47.41,
TxnDate = "2001-06-18", TxnFees = 0, verbose = FALSE)

updatePortf("Equity")
updateAcct("ETF_Momentum")
updateEndEq("ETF_Momentum")

getTxns("Equity","VTI")
head(VTI)

chart.Posn("Equity", Symbol = "VTI", Dates = "2001-06-15")