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

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

Author: bodanker
Date: 2014-08-22 15:25:18 +0200 (Fri, 22 Aug 2014)
New Revision: 831

Modified:
   pkg/xts/R/xts.methods.R
Log:
- Fix bug #5885


Modified: pkg/xts/R/xts.methods.R
===================================================================
--- pkg/xts/R/xts.methods.R	2014-08-21 19:51:20 UTC (rev 830)
+++ pkg/xts/R/xts.methods.R	2014-08-22 13:25:18 UTC (rev 831)
@@ -128,8 +128,8 @@
         i <- seq_len(nr)
 
       if(length(x)==0) {
-        x.tmp <- .xts(rep(NA,length(i)), .index(x)[i])
-        return((colnames(x.tmp) <- colnames(x)))
+        x.tmp <- .xts(rep(NA,length(i)), .index(x)[i], dimnames=list(NULL, colnames(x)))
+        return(x.tmp)
       } else {
         if(USE_EXTRACT) {
           return(.Call('extract_col',