test_that("get_example_grid_germany() works", {
f <- kwb.dwd:::get_example_grid_germany
capture.output(suppressMessages(result <- f()))
expect_true(inherits(result, "RasterLayer"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.