test_that("get_scaling_factors() works", {
f <- kwb.dwd:::get_scaling_factors
result <- f()
expect_true(is.list(result))
expect_true(all(sapply(result, is.numeric)))
expect_true(all(lengths(result) == 1L))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.