From noreply at r-forge.r-project.org Wed Oct 15 18:45:09 2014 From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org) Date: Wed, 15 Oct 2014 18:45:09 +0200 (CEST) Subject: [Xts-commits] r860 - pkg/xtsExtra/R Message-ID: <20141015164509.ECD14185462@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="/")