#test file
test_that("demo",{
s01 <- PiCal(20)
expect_that(mean(s01$sample) < 1, is_true())
expect_that(length(s01$sample), equals(40))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.