[Xts-commits] r860 - pkg/xtsExtra/R

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

Author: rossbennett34
Date: 2014-10-15 18:45:09 +0200 (Wed, 15 Oct 2014)
New Revision: 860

Modified:
   pkg/xtsExtra/R/plot2.R
Log:
support frequencies higher than daily in addLines

Modified: pkg/xtsExtra/R/plot2.R
===================================================================
--- pkg/xtsExtra/R/plot2.R	2014-09-22 14:43:25 UTC (rev 859)
+++ pkg/xtsExtra/R/plot2.R	2014-10-15 16:45:09 UTC (rev 860)
@@ -994,7 +994,8 @@
     }
     ypos <- x$Env$ylim[[2*on]][2]
     # create a new xts object out of event.dates
-    event.dates.xts <- xts(rep(999, length(event.dates)), order.by=as.Date(event.dates, format=date.format))
+    event.dates.xts <- xts(rep(999, length(event.dates)), 
+                           order.by=as.POSIXct(event.dates, tz=indexTZ(xdata), format=date.format))
     # we can add points that are not necessarily at the points on the main series
     subset.range <- paste(start(xdata[xsubset]),
                           end(xdata[xsubset]),sep="/")