test_that("Test: season_seq", {
res <- season_seq(from = 20, to = 22)
out <- kb.utils::catch_error(expr = season_seq(from = "20", to = "22"))
expect_false(is.null(out$error))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.