Nothing
test_that("Check output for credible_lrep", {
result <- credible_prep(exres)
expect_s3_class(result, 'data.frame')
})
test_that("Check error for wrong params for credible_prep", {
expect_error(credible_prep(exres, params = 'abc'))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.