tests/testthat/test-hydro_metadata_imgw.R

In bczernecki/climate: Interface to Download Meteorological (and Hydrological) Datasets

context("hydro-metadata")

h_d <- suppressWarnings(hydro_metadata_imgw("daily"))
h_m <- suppressWarnings(hydro_metadata_imgw("monthly"))

test_that("hydro-metadata works!", {
  if (is.list(h_d) && is.list(h_m)) {
    expect_equal(dim(h_d[[1]]), c(10, 1))
    expect_equal(dim(h_d[[2]]), c(10, 1))
    expect_equal(dim(h_m[[1]]), c(10, 1))
  }
})