tests/testthat/test-function-get_example_grid_germany.R

test_that("get_example_grid_germany() works", {

  f <- kwb.dwd:::get_example_grid_germany

  capture.output(suppressMessages(result <- f()))

  expect_true(inherits(result, "RasterLayer"))
})
KWB-R/kwb.dwd documentation built on Sept. 28, 2022, 6:03 p.m.