[Xts-commits] r859 - pkg/xts/src

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

Author: bodanker
Date: 2014-09-22 16:43:25 +0200 (Mon, 22 Sep 2014)
New Revision: 859

Modified:
   pkg/xts/src/toperiod.c
Log:
- Fix bug #5937 (to.period error when name=NULL)


Modified: pkg/xts/src/toperiod.c
===================================================================
--- pkg/xts/src/toperiod.c	2014-09-21 14:29:36 UTC (rev 858)
+++ pkg/xts/src/toperiod.c	2014-09-22 14:43:25 UTC (rev 859)
@@ -261,9 +261,9 @@
     SET_STRING_ELT(newcolnames, 1, mkChar("High"));
     SET_STRING_ELT(newcolnames, 2, mkChar("Low"));
     SET_STRING_ELT(newcolnames, 3, mkChar("Close"));
-    if(INTEGER(hasVolume))
+    if(INTEGER(hasVolume)[0])
       SET_STRING_ELT(newcolnames, 4, mkChar("Volume"));
-    if(INTEGER(hasVolume))
+    if(INTEGER(hasAdjusted)[0])
       SET_STRING_ELT(newcolnames, 5, mkChar("Adjusted"));
     SET_VECTOR_ELT(dimnames, 1, newcolnames);
   }