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

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

Author: braverock
Date: 2010-11-04 20:40:35 +0100 (Thu, 04 Nov 2010)
New Revision: 441

Modified:
   pkg/blotter/R/chart.Posn.R
Log:
- pass through OHLC data if we have it

Modified: pkg/blotter/R/chart.Posn.R
===================================================================
--- pkg/blotter/R/chart.Posn.R	2010-11-04 18:05:32 UTC (rev 440)
+++ pkg/blotter/R/chart.Posn.R	2010-11-04 19:40:35 UTC (rev 441)
@@ -13,7 +13,7 @@
 
     require(quantmod)
     Prices=get(Symbol)
-	Prices=getPrice(Prices)
+    if(!is.OHLC(Prices)) Prices=getPrice(Prices)
     freq = periodicity(Prices)
     switch(freq$scale,
             seconds = { mult=1 },