tests/testthat/test_interaction.R

In iNZightTS: Time Series for 'iNZight'

context("Plot interactivity helper functions")

skip_on_cran()
skip_if(
    length(find.package("iNZightPlots", quiet = TRUE)) == 0,
    message = "iNZightPlots package not available."
)
eval(parse(text = "library(iNZightPlots)"))
can.interact <- eval(parse(text = "can.interact"))

data(visitorsQ)
t <- iNZightTS(visitorsQ)
tm <- iNZightTS(visitorsQ, var = 2:5)

test_that("Interactivity helper returns correct result", {
    expect_true(can.interact(plot(t)))
    expect_false(can.interact(seasonplot(t)))
    expect_false(can.interact(plot(decompose(t))))
    expect_true(can.interact(plot(t, forecast = 8)))

    expect_false(can.interact(plot(tm)))
    expect_false(can.interact(plot(tm, compare = FALSE)))
})

unlink("Rplots.pdf)")