[Xts-commits] r641 - pkg/xtsExtra/R/xtsdf

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

Author: weylandt
Date: 2012-06-19 19:33:50 +0200 (Tue, 19 Jun 2012)
New Revision: 641

Modified:
   pkg/xtsExtra/R/xtsdf/simpleS3.xtsdf.R
Log:
indexTZ and indexClass for xtsdf

Modified: pkg/xtsExtra/R/xtsdf/simpleS3.xtsdf.R
===================================================================
--- pkg/xtsExtra/R/xtsdf/simpleS3.xtsdf.R	2012-06-19 17:32:30 UTC (rev 640)
+++ pkg/xtsExtra/R/xtsdf/simpleS3.xtsdf.R	2012-06-19 17:33:50 UTC (rev 641)
@@ -28,3 +28,13 @@
 
 as.zoo.xtsdf <- function(x, ...) as.zoo(as.xts(x, ...), ...)
 
+indexTZ.xtsdf <- function(x, ...) indexTZ(x[[1]])
+
+
+#### NEED TO MAKE INDEX CLASS A S3 GENERIC FOR NOW
+
+indexClass <- function(x) UseMethod("indexClass")
+
+indexClass.xts <- xts::indexClass
+
+indexClass.xtsdf <- function(x) indexClass(x[[1]])
\ No newline at end of file