[Xts-commits] r735 - pkg/xts/R

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

Author: jryan
Date: 2012-10-12 17:32:16 +0200 (Fri, 12 Oct 2012)
New Revision: 735

Modified:
   pkg/xts/R/xts.R
Log:
o  fixed bug in reclass when tzone of object is different
   than system TZ


Modified: pkg/xts/R/xts.R
===================================================================
--- pkg/xts/R/xts.R	2012-10-10 21:31:58 UTC (rev 734)
+++ pkg/xts/R/xts.R	2012-10-12 15:32:16 UTC (rev 735)
@@ -129,7 +129,7 @@
         stop('incompatible match.to attibutes')
       } else return(x)
 
-    if(!is.xts(x)) x <- .xts(coredata(x),.index(match.to), .indexCLASS=indexClass(match.to))
+    if(!is.xts(x)) x <- .xts(coredata(x),.index(match.to), .indexCLASS=indexClass(match.to), tzone=indexTZ(match.to))
     CLASS(x) <- CLASS(match.to)
     xtsAttributes(x) <- xtsAttributes(match.to)
   }