inst/unitTests/runit.index.R

test.get_index_does_not_error_if_index_has_no_attributes  <- function() {
  x <- .xts(1:3, 1:3, tzone = "UTC")

  ix <- index(x)
  ix <- ix + 3

  attr(x, "index") <- 4:6
  checkEquals(index(x), ix)
}

test.set_.index_copies_index_attributes <- function() {
  x <- .xts(1:3, 1:3, tzone = "UTC")

  ix <- index(x)
  ix <- ix + 3

  .index(x) <- 4:6
  checkEquals(index(x), ix)
}

test.set_index_copies_index_attributes <- function() {
  x <- .xts(1:3, 1:3, tzone = "UTC")

  ix <- index(x)
  ix <- ix + 3

  index(x) <- .POSIXct(4:6, "UTC")
  checkEquals(index(x), ix)
}

test.set_index_restores_tzone_attribute <- function() {
  # x index must be numeric, because index<-.xts coerces RHS to numeric
  x <- .xts(1:3, 1:3+0, tzone = "")
  y <- x

  # Ops.POSIXt drops tzone attribute when tzone = ""
  index(y) <- index(y) + 0

  checkIdentical(x, y)
}
joshuaulrich/xts documentation built on Feb. 16, 2020, 8:12 p.m.