inst/tinytest/test-plot.R

In xts: eXtensible Time Series

# Tests for plotting functions
data(sample_matrix)
x <- as.xts(sample_matrix, dateFormat = "Date")

# axTicksByTime
info_msg <- "test.format_xts_yearqtr"
xq <- to.quarterly(x)
xtbt <- axTicksByTime(xq)
expect_identical(names(xtbt), c("2007-Q1", "2007-Q2"), info = info_msg)

info_msg <- "test.format_zoo_yearqtr"
xq <- to.quarterly(x)
xtbt <- axTicksByTime(as.zoo(xq))
expect_identical(names(xtbt), c("2007-Q1", "2007-Q2"), info = info_msg)

info_msg <- "test.axTicksByTime_ticks.on_quarter"
tick_marks <- setNames(c(1, 4, 7, 10, 13, 16, 19, 22, 25, 25),
  c("\nJan\n2016", "\nApr\n2016", "\nJul\n2016", "\nOct\n2016",
    "\nJan\n2017", "\nApr\n2017", "\nJul\n2017", "\nOct\n2017",
    "\nJan\n2018", "\nJan\n2018"))
if (.Platform$OS.type != "unix") {
  names(tick_marks) <- gsub("\n(.*)\n", "\\1 ", names(tick_marks))
}
ym <- as.yearmon("2018-01") - 24:0 / 12
x <- xts(seq_along(ym), ym)

xtbt <- axTicksByTime(x, ticks.on = "quarters")
expect_identical(xtbt, tick_marks, info = info_msg)

info_msg <- "test.xlim_set_before_rendering"
target <- c(86400.0, 864000.0)
p <- plot(xts(1:10, .Date(1:10)))
expect_equivalent(target, p$get_xlim(), info = info_msg)

info_msg <- "test.ylim_set_before_rendering"
x <- rnorm(10)
p <- plot(xts(x, .Date(1:10)))
expect_equivalent(range(x), p$get_ylim()[[2]], info = info_msg)

info_msg <- "test.yaxis.ticks"
x <- xts(rnorm(50), .Date(1:50))
ylim <- c(0, 10) # default case
p1 <- plot(x)
expect_identical(pretty(ylim, 5), p1$Env$y_grid_lines(ylim), info = info_msg)
p2 <- plot(x, yaxis.ticks = 10) # twice as many y-axis grid lines
expect_identical(pretty(ylim, 10), p2$Env$y_grid_lines(ylim), info = info_msg)

get_xcoords_respects_object_tzone <-
function()
{
  systz <- Sys.getenv("TZ")
  on.exit(Sys.setenv(TZ = systz), add = TRUE)

  dates <- seq(as.Date("2023-01-01"), by = 1, length.out = 5)
  x <- xts(c(5, 1, 2, 4, 3), order.by = dates)

  Sys.setenv(TZ = "UTC")
  print(p <- plot(x))
  expect_identical("UTC", tzone(p$get_xcoords(x)),
                   info = "TZ = UTC")

  Sys.setenv(TZ = "US/Central")
  expect_identical("UTC", tzone(p$get_xcoords(x)),
                   info = "TZ = US/Central")
}
get_xcoords_respects_object_tzone()