inst/tinytest/test_plot_prediction_samples.R

In thfuchs/tsRNN: Time Series Forecasting using Recurrent Neural Networks by Keras

test_splits <- list(tsRNN::fc_arima, tsRNN::fc_arima, tsRNN::fc_arima)

### Check ----------------------------------------------------------------------

expect_true(rlang::inherits_all(
  plot_prediction_samples(splits = test_splits),
  c("patchwork", "ggplot")
))

expect_true(rlang::inherits_all(
  plot_prediction_samples(splits = test_splits, title = "Title"),
  c("patchwork", "ggplot")
))
expect_true(rlang::inherits_all(
  plot_prediction_samples(splits = test_splits, title = NULL),
  c("patchwork", "ggplot")
))

expect_true(rlang::inherits_all(
  plot_prediction_samples(splits = test_splits, date_type = "datetime"),
  c("patchwork", "ggplot")
))
expect_true(rlang::inherits_all(
  plot_prediction_samples(splits = test_splits, date_type = "Date"),
  c("patchwork", "ggplot")
))
expect_true(rlang::inherits_all(
  plot_prediction_samples(splits = test_splits, date_type = "character"),
  c("patchwork", "ggplot")
))

expect_true(rlang::inherits_all(
  plot_prediction_samples(splits = test_splits, ncol = 1L),
  c("patchwork", "ggplot")
))

expect_true(rlang::inherits_all(
  plot_prediction_samples(
    splits = test_splits, scale = as.Date(c("1990-01-01", "2010-12-31"))),
  c("patchwork", "ggplot")
))
expect_true(rlang::inherits_all(
  plot_prediction_samples(splits = test_splits, scale = NULL),
  c("patchwork", "ggplot")
))

expect_true(rlang::inherits_all(
  plot_prediction_samples(splits = test_splits, PI = FALSE),
  c("patchwork", "ggplot")
))
expect_true(rlang::inherits_all(
  plot_prediction_samples(splits = test_splits, PI = TRUE),
  c("patchwork", "ggplot")
))

### Error ----------------------------------------------------------------------

expect_error(
  plot_prediction_samples(splits = tsRNN::fc_baseline),
  class = "plot_prediction_samples_splits_error",
  pattern = "`splits` must be list, not of class \"data.table / data.frame\"\\.$"
)

expect_error(
  plot_prediction_samples(splits = test_splits, date_type = NULL),
  class = "plot_prediction_samples_date_type_error",
  pattern = "`date_type` must be character, not of class \"NULL\"\\.$"
)
expect_error(
  plot_prediction_samples(splits = test_splits, date_type = "hello"),
  class = "rlang_error",
  pattern = "^`date_type` must be one of \"Date\", \"datetime\", or \"character\".$"
)

expect_error(
  plot_prediction_samples(splits = test_splits, ncol = "ncol"),
  class = "plot_prediction_samples_ncol_error",
  pattern = "`ncol` must be integer, not of class \"character\"\\.$"
)
expect_error(
  plot_prediction_samples(splits = test_splits, ncol = NULL),
  class = "plot_prediction_samples_ncol_error",
  pattern = "`ncol` must be integer, not of class \"NULL\"\\.$"
)

expect_error(
  plot_prediction_samples(splits = test_splits, scale = "1990-01-01"),
  class = "plot_prediction_samples_scale_error",
  pattern = "`scale` must be Date, not of class \"character\"\\.$"
)

expect_error(
  plot_prediction_samples(splits = test_splits, PI = NULL),
  class = "plot_prediction_samples_PI_error",
  pattern = "`PI` must be logical, not of class \"NULL\"\\.$"
)