test_that("system_check", {
mockery::stub(system_check, "system2", structure("output", status = 1))
expect_error(
system_check("foobar", args = c("arg1", "arg2", quiet = TRUE)),
"Command foobar failed"
)
mockery::stub(system_check, "system2", 42)
expect_error(
system_check("foobar", args = c("arg1", "arg2", quiet = FALSE)),
"Command foobar failed"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.