tests/testthat/test-ts_.R

In christophsax/tsbox: Class-Agnostic Time Series

test_that("ts_ works with more exotic options", {
  skip_if_not_installed("dygraphs")

  expect_equal(ts_(rowSums)(ts_c(mdeaths, fdeaths)), mdeaths + fdeaths)
  ts_(dygraphs::dygraph, class = "xts")

  expect_equal(
    ts_(function(x) x, class = "ts", vectorize = TRUE)(ts_c(mdeaths, fdeaths)),
    ts_c(mdeaths, fdeaths)
  )


  expect_error(load_suggested("blabla"))
  expect_error(ts_(function(x) x, reclass = FALSE, vectorize = TRUE))
})


test_that("ts_ based functions pass arguments in seasonal", {
  skip_on_cran()
  skip_if_not_installed("seasonal")

  # copied from x13binary::supportedPlatform
  supportedPlatform <- function() {
    z <- FALSE
    if (.Platform$OS.type == "windows") {
      z <- TRUE
    }
    if (Sys.info()["sysname"] %in% c("Linux")) {
      z <- TRUE
    }
    if (Sys.info()["sysname"] %in% c("Darwin")) {
      z <- compareVersion(Sys.info()["release"], "11.0.0") >=
        0
    }
    if ((.Platform$OS.type == "unix") && !(Sys.info()["sysname"] %in%
      c("Darwin", "Linux"))) {
      z <- FALSE
    }
    z
  }

  if (!supportedPlatform()) {
    skip("x13binary is not supported on this platform")
  }

  sa <- ts_seas(ts_c(mdeaths, fdeaths), x11 = "")
  expect_equal(
    ts_pick(sa, "mdeaths"),
    predict(seasonal::seas(mdeaths, x11 = ""))
  )
  expect_equal(
    ts_pick(sa, "fdeaths"),
    predict(seasonal::seas(fdeaths, x11 = ""))
  )
})