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

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

Author: bodanker
Date: 2013-08-05 17:10:01 +0200 (Mon, 05 Aug 2013)
New Revision: 784

Modified:
   pkg/xts/R/dimnames.R
Log:
- fix bug #4794


Modified: pkg/xts/R/dimnames.R
===================================================================
--- pkg/xts/R/dimnames.R	2013-07-06 16:55:08 UTC (rev 783)
+++ pkg/xts/R/dimnames.R	2013-08-05 15:10:01 UTC (rev 784)
@@ -33,9 +33,10 @@
 function(x, value) {
   oclass <- class(x)
   x <- unclass(x)
-  d <- dim(x)
+
   if(is.null(value)) {
     dimnames(x) <- NULL
+    class(x) <- oclass
   }
   else {
     if(!is.list(value) || length(value) != 2L)