test_that("get_active_scenario", {
checkmate::expect_list(get_active_scenario(), types = "character", any.missing = FALSE)
checkmate::expect_access(get_active_scenario()[["scenario_dir"]])
checkmate::expect_access(get_active_scenario()[["output_dir"]])
checkmate::expect_access(get_active_scenario()[["input_dir"]])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.