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

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

Author: bodanker
Date: 2013-07-23 19:49:22 +0200 (Tue, 23 Jul 2013)
New Revision: 1485

Modified:
   pkg/blotter/R/chart.Posn.R
Log:
- only use first element of Symbol


Modified: pkg/blotter/R/chart.Posn.R
===================================================================
--- pkg/blotter/R/chart.Posn.R	2013-07-22 21:21:12 UTC (rev 1484)
+++ pkg/blotter/R/chart.Posn.R	2013-07-23 17:49:22 UTC (rev 1485)
@@ -14,6 +14,7 @@
     pname<-Portfolio
     Portfolio<-getPortfolio(pname)
     if (missing(Symbol)) Symbol <- names(Portfolio$symbols)[[1]]
+    else Symbol <- Symbol[1]
     # FUNCTION
 
     require(quantmod)