test_that("list_url() works", {
f <- kwb.dwd:::list_url
capture.output(result <- f())
capture.output(result2 <- f(full_info = TRUE))
expect_type(result, "character")
expect_true("grids_germany/" %in% result)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.