tests/testthat/test-plot_record_by_year.R

In FRBCesab/forcis: An R Client to Access the FORCIS Database

## Data for tests ----

df_net <- data.frame("data_type"         = rep("Net", 5),
                     "profile_date_time" = c("01/02/1999", "01/03/2020",
                                             "01/03/2022", "01/04/2023",
                                             "01/07/2024"),
                     "sample_id"         = c(1, 1, 2, 3, 3))

df_trap <- data.frame("data_type"              = rep("Sediment trap", 5),
                      "sample_date_time_start" = c("01/02/1999", "01/03/2020",
                                                   "01/03/2022", "01/04/2023",
                                                   "01/07/2024"),
                      "sample_id"              = c(1, 1, 2, 3, 3))


## plot_record_by_year() ----

test_that("Test plot_record_by_year() for success", {
  
  expect_silent({ gg <- plot_record_by_year(df_net) })
  
  expect_true("gg" %in% class(gg))
  expect_true("ggplot" %in% class(gg))
  
  vdiffr::expect_doppelganger("Plot net record by year", gg)
  
  expect_silent({ gg <- plot_record_by_year(df_trap) })
  
  expect_true("gg" %in% class(gg))
  expect_true("ggplot" %in% class(gg))
  
  vdiffr::expect_doppelganger("Plot trap record by year", gg)
})