tests/testthat/test-function-check_or_download_shapes_germany.R

test_that("check_or_download_shapes_germany() works", {

  f <- kwb.dwd:::check_or_download_shapes_germany

  capture.output(result <- f(quiet = TRUE))

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