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

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

Author: weylandt
Date: 2012-06-19 18:33:00 +0200 (Tue, 19 Jun 2012)
New Revision: 639

Modified:
   pkg/xtsExtra/R/xtsdf/subset.print.xtsdf.R
Log:
Print method

Modified: pkg/xtsExtra/R/xtsdf/subset.print.xtsdf.R
===================================================================
--- pkg/xtsExtra/R/xtsdf/subset.print.xtsdf.R	2012-06-19 16:32:23 UTC (rev 638)
+++ pkg/xtsExtra/R/xtsdf/subset.print.xtsdf.R	2012-06-19 16:33:00 UTC (rev 639)
@@ -17,6 +17,8 @@
 
 `[.xtsdf` <- function(x, i, k, drop = FALSE, which.i = FALSE, ...){}
 
-print.xtsdf <- function(x, fmt, ...){}
+print.xtsdf <- function(x, ...){
+  print(as.data.frame(x, row.names = index(x)), ...)
+}
 
 str.xtsdf <- function(object, ...) {}