tests/testthat/test-hydro.R

In imgw: Polish Meteorological and Hydrological Data

context("hydro")
y <- 2017

test_that("hydro works!", {
  x <- hydro("daily", year = y)
  x <- hydro("monthly", year = y)
  x <- hydro("semiannual_and_annual", year = y, value = "H")
  x <- hydro("semiannual_and_annual", year = y, value = "Q")
  x <- hydro("semiannual_and_annual", year = y, value = "T")
  x <- hydro("semiannual_and_annual", year = y, coords = TRUE)
  x <- hydro("semiannual_and_annual", year = y, col_names = "full")
  x <- hydro("semiannual_and_annual", year = y, coords = TRUE, col_names = "full")
  x <- hydro("semiannual_and_annual", year = y, col_names = "polish")
  x <- hydro("semiannual_and_annual", year = y, coords = TRUE, col_names = "polish")
  x <- hydro("semiannual_and_annual", year = y, station = "BOGUSŁAW")
  x2 <- hydro("semiannual_and_annual", year = y, station = 149180020)
})