[Xts-commits] r773 - in pkg/xts: . R

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

Author: jryan
Date: 2013-06-08 15:03:43 +0200 (Sat, 08 Jun 2013)
New Revision: 773

Modified:
   pkg/xts/DESCRIPTION
   pkg/xts/R/index.R
   pkg/xts/R/indexClass.R
Log:
o added missing tzone attr to index


Modified: pkg/xts/DESCRIPTION
===================================================================
--- pkg/xts/DESCRIPTION	2013-04-25 01:01:39 UTC (rev 772)
+++ pkg/xts/DESCRIPTION	2013-06-08 13:03:43 UTC (rev 773)
@@ -1,7 +1,7 @@
 Package: xts
 Type: Package
 Title: eXtensible Time Series
-Version: 0.9-3.2
+Version: 0.9-3.3
 Date: 2013-01-14
 Author: Jeffrey A. Ryan, Joshua M. Ulrich
 Depends: zoo (>= 1.7-2)

Modified: pkg/xts/R/index.R
===================================================================
--- pkg/xts/R/index.R	2013-04-25 01:01:39 UTC (rev 772)
+++ pkg/xts/R/index.R	2013-06-08 13:03:43 UTC (rev 773)
@@ -76,7 +76,8 @@
 
   # set the .indexCLASS/tclass attribute to the end-user specified class
   attr(x, '.indexCLASS') <- class(value)
-  attr(.index(x), '.tclass') <- class(value)
+  attr(.index(x), 'tclass') <- class(value)
+  attr(.index(x), 'tzone') <- attr(value,"tzone")
   return(x)
 }
 

Modified: pkg/xts/R/indexClass.R
===================================================================
--- pkg/xts/R/indexClass.R	2013-04-25 01:01:39 UTC (rev 772)
+++ pkg/xts/R/indexClass.R	2013-06-08 13:03:43 UTC (rev 773)
@@ -61,6 +61,10 @@
   if(value %in% c('POSIXlt','POSIXct'))
     value <- c(value,'POSIXt')
 
+  if(value %in% 'Date') {
+    
+  }
+
   attr(x, '.indexCLASS') <- value
   # all index related meta-data will be stored in the index
   # as attributes