#library(testthat)
#library(kwb.utils)
test_that("catChangesIf() works", {
f <- catChangesIf
expect_error(f())
expect_output(f(TRUE, 1:2, 2:3))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.