test_that("hy_annual_stats accepts single and multiple province arguments", {
stns <- "08NM083"
expect_identical(unique(hy_annual_stats(
station_number = stns,
hydat_path = hy_test_db()
)$STATION_NUMBER), stns)
expect_identical(length(unique(hy_annual_stats(
station_number = c("08NM083", "08NE102"),
hydat_path = hy_test_db()
)$STATION_NUMBER)), length(c("08NM083", "08NE102")))
})
test_that("hy_annual_stats accepts single and multiple province arguments", {
expect_true(nrow(hy_annual_stats(prov_terr_state_loc = "BC", hydat_path = hy_test_db())) >= 1)
expect_true(nrow(hy_annual_stats(prov_terr_state_loc = c("BC", "YT"), hydat_path = hy_test_db())) >= 1)
})
test_that("hy_annual_stats produces an error when a province is not specified correctly", {
expect_error(hy_annual_stats(prov_terr_state_loc = "BCD", hydat_path = hy_test_db()))
expect_error(hy_annual_stats(prov_terr_state_loc = c("AB", "BCD"), hydat_path = hy_test_db()))
})
test_that("hy_annual_stats gather data when no arguments are supplied", {
expect_true(nrow(hy_annual_stats(hydat_path = hy_test_db())) >= 1)
})
test_that("hy_annual_stats respects year inputs", {
df <- hy_annual_stats(station_number = c("08NM083", "08NE102"), hydat_path = hy_test_db(), start_year = 1981, end_year = 2007)
expect_equal(2007, max(df$Year))
expect_equal(1981, min(df$Year))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.