tests/testthat/test-plot_data_screening.R

context("Plot data screening")

test_that("a list of plots is created", {
  skip_on_cran()
  skip_on_ci()
  plots <- plot_data_screening(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_data_screening(station_number = c("08NM116","08HB048"), start_year = 1980)
  expect_true(length(plots) == 2)
})

Try the fasstr package in your browser

Any scripts or data that you put into this service are public.

fasstr documentation built on March 31, 2023, 10:25 p.m.