Fix failure of test..xts_class

Reinstate the behaviour as of v0.10-2. .indexCLASS should take precedence over tclass. Fixes #249.
joshuaulrich · Jul 27, 2018 · 1d707c5 · 1d707c5
1 parent beb4267
commit 1d707c5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/xts.R b/R/xts.R
@@ -138,6 +138,9 @@ function(x=NULL, index, tclass=c("POSIXct","POSIXt"),
     .indexFORMAT <- eval(dots.names$.indexFORMAT,parent.frame())
   else
     .indexFORMAT <- NULL
+
+  ## restore behaviour from v0.10-2
+  tclass <- .indexCLASS
   xx <- .Call("add_xtsCoreAttributes", x, index, .indexCLASS, tzone, tclass,
               c('xts','zoo'), .indexFORMAT, PACKAGE='xts')
   # remove .indexFORMAT and .indexTZ that come through Ops.xts