tests/testthat/test-meteo_imgw.R

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

context("meteo_imgw")
y <-  2018

test_that("meteo_imgw works!", {
  x <- meteo_imgw("hourly", "synop", year = y)
  x <- meteo_imgw("hourly", "climate", year = y)
  #x <- meteo_imgw("hourly", "precip", year = y) # this one should not be tested - error expected
  x <- meteo_imgw("daily", "synop", year = y)
  x <- meteo_imgw("daily", "climate", year = y)
  x <- meteo_imgw("daily", "precip", year = y)
  x <- meteo_imgw("monthly", "synop", year = y)
  x <- meteo_imgw("monthly", "climate", year = y)
  x <- meteo_imgw("monthly", "precip", year = y)
  x <- meteo_imgw("monthly", "synop", year = y, status = TRUE)
  x <- meteo_imgw("monthly", "synop", year = y, coords = TRUE)
  x <- meteo_imgw("monthly", "synop", year = y, col_names = "full")
  x <- meteo_imgw("monthly", "synop", year = y, coords = TRUE, col_names = "full")
  x <- meteo_imgw("monthly", "synop", year = y, col_names = "polish")
  x <- meteo_imgw("monthly", "synop", year = y, coords = TRUE, col_names = "polish")
  x <- meteo_imgw("monthly", "synop", year = y, station = "BIAŁYSTOK")
  x2 <- meteo_imgw("monthly", "synop", year = y, station = 353230295)
})