tests/testthat/test-plot.R

In fChange: Functional Change Point Detection and Analysis

test_that("Plot Options", {
  tmp <- plot.dfts(electricity, changes = c(50, 175), type = "spaghetti")
  expect_equal(class(tmp)[1], "plotly")

  tmp <- plot.dfts(electricity, changes = c(50, 175), type = "fast")
  expect_equal(class(tmp)[1], "trellis")

  tmp <- plot.dfts(electricity, changes = c(50, 175), type = "rainbow")
  expect_true(ggplot2::is_ggplot(tmp))

  tmp <- plot.dfts(electricity, changes = c(50, 175), type = "banded")
  expect_true(ggplot2::is_ggplot(tmp))

  tmp <- plot.dfts(electricity, changes = c(50, 175), type = "acf")
  expect_true(ggplot2::is_ggplot(tmp))

  tmp <- plot.dfts(electricity, changes = c(50, 175), type = "pacf")
  expect_true(ggplot2::is_ggplot(tmp))

  if (Sys.info()["sysname"] != "Linux") {
    tmp <- plot.dfts(electricity, changes = c(50, 175), type = "summary")
    expect_equal(class(tmp)[1], "list")
  }

  tmp <- plot.dfts(electricity, changes = c(50, 175), type = "qq")
  expect_true(ggplot2::is_ggplot(tmp))

  tmp <- plot.dfts(electricity, changes = c(50, 175), type = "distribution")
  expect_true(ggplot2::is_ggplot(tmp))

  tmp <- plot.dfts(electricity, changes = c(50, 175), type = "change")
  expect_equal(class(tmp)[1], "plotly")

  tmp <- plot.dfts(electricity, changes = c(50, 175), type = "interval", int.gradual = FALSE)
  expect_equal(class(tmp)[1], "plotly")
  tmp <- plot.dfts(electricity, changes = c(50, 175), type = "interval", int.gradual = TRUE)
  expect_equal(class(tmp)[1], "plotly")

  tmp <- plot.dfts(electricity, changes = c(50, 175), type = "surface")
  expect_equal(class(tmp)[1], "matrix")
})