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

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

Author: jryan
Date: 2013-06-08 15:19:56 +0200 (Sat, 08 Jun 2013)
New Revision: 774

Modified:
   pkg/xts/DESCRIPTION
   pkg/xts/R/bind.R
   pkg/xts/src/rbind.c
Log:
o fixed rbind issue for CRAN check, dup= arg was missing in the
  R call.


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

Modified: pkg/xts/R/bind.R
===================================================================
--- pkg/xts/R/bind.R	2013-06-08 13:03:43 UTC (rev 773)
+++ pkg/xts/R/bind.R	2013-06-08 13:19:56 UTC (rev 774)
@@ -103,7 +103,7 @@
       dots <- dots[-1]
     if(!is.null(colnames(y)) && colnames(x) != colnames(y))
       warning('column names differ')
-    x <- .Call('do_rbind_xts',x,y,PACKAGE="xts")
+    x <- .Call('do_rbind_xts',x,y,FALSE,PACKAGE="xts")
   }
   return(x)
 }

Modified: pkg/xts/src/rbind.c
===================================================================
--- pkg/xts/src/rbind.c	2013-06-08 13:03:43 UTC (rev 773)
+++ pkg/xts/src/rbind.c	2013-06-08 13:19:56 UTC (rev 774)
@@ -37,6 +37,7 @@
   int mode;
   SEXP result, xindex, yindex, newindex;
 
+
   int *int_result=NULL, *int_x=NULL, *int_y=NULL;
   int *int_newindex=NULL, *int_xindex=NULL, *int_yindex=NULL;
   double *real_result=NULL, *real_x=NULL, *real_y=NULL;