tests/testthat/test-hydrometContinuous.R

In YukonWRB/WRBplots: Make pretty, standardized plots for a variety of WRB uses

test_that("continuous level plot is as expected for full year with numeric startDay and endDay", {
  dir <- paste0(tempdir(), "/plots")
  unlink(dir, recursive=TRUE)
  dir.create(dir)
  plot <- suppressWarnings(hydrometContinuous("09EA004", "level", startDay = 1, endDay = 365, years = "2022", save_path = dir))
  path <- list.files(dir, full.names=TRUE)
  file.rename(path, paste0(dir, "/level1.png"))
  expect_snapshot_file(paste0(dir, "/level1.png"))
  unlink(dir, recursive=TRUE)
})

test_that("console plot output is as expected", {
  plot <- suppressWarnings(hydrometContinuous("09EA004", "level", startDay = 1, endDay = 365, years = "2022"))
  vdiffr::expect_doppelganger("full yr numeric start/end", plot)
})

test_that("continuous level plot is as expected for full year with character startDay and endDay", {
  dir <- paste0(tempdir(), "/plots")
  dir.create(dir)
  suppressWarnings(hydrometContinuous("09EA004", "level", startDay = "2023-01-01", endDay = "2023-12-31", years = "2022", save_path = dir))
  path <- list.files(dir, full.names=TRUE)
  file.rename(path, paste0(dir, "/level2.png"))
  expect_snapshot_file(paste0(dir, "/level2.png"))
  unlink(dir, recursive=TRUE)
})

test_that("continuous flow plot is as expected for full year with numeric startDay and endDay", {
  dir <- paste0(tempdir(), "/plots")
  dir.create(dir)
  suppressWarnings(hydrometContinuous("09EA004", "flow", startDay = 1, endDay = 365, years = "2022", save_path = dir))
  path <- list.files(dir, full.names=TRUE)
  file.rename(path, paste0(dir, "/flow1.png"))
  expect_snapshot_file(paste0(dir, "/flow1.png"))
  unlink(dir, recursive=TRUE)
})

test_that("SWE plot works when overlaping new year, dates as character", {
  dir <- paste0(tempdir(), "/plots")
  dir.create(dir)
  suppressWarnings(hydrometContinuous("09AA-M1", "SWE", startDay = "2023-09-01", endDay = "2023-05-31", years = "2022", save_path = dir, return_months = c(4,5)))
  path <- list.files(dir, full.names=TRUE)
  file.rename(path, paste0(dir, "/SWE1.png"))
  expect_snapshot_file(paste0(dir, "/SWE1.png"))
  unlink(dir, recursive=TRUE)
})

test_that("depth plot works when overlaping new year, dates as numeric", {
  dir <- paste0(tempdir(), "/plots")
  dir.create(dir)
  suppressWarnings(hydrometContinuous("09AA-M1", "snow depth", startDay = 250, endDay = 150, years = "2022", save_path = dir, return_months = c(4,5)))
  path <- list.files(dir, full.names=TRUE)
  file.rename(path, paste0(dir, "/depth1.png"))
  expect_snapshot_file(paste0(dir, "/depth1.png"))
  unlink(dir, recursive=TRUE)
})