tests/testthat/test-plot_annual_outside_normal.R

In fasstr: Analyze, Summarize, and Visualize Daily Streamflow Data

context("Plot annual outside normal")

test_that("a list of plots is created", {
  skip_on_cran()
  skip_on_ci()
  plots <- plot_annual_outside_normal(station_number = "08NM116", start_year = 1980)
  expect_true("list" %in% class(plots) & "gg" %in% sapply(plots, class))
})

test_that("multiple plots are created with multiple groups", {
  skip_on_cran()
  skip_on_ci()
  plots <- plot_annual_outside_normal(station_number = c("08NM116","08HB048"), start_year = 1980)
  expect_true(length(plots) == 2)
})