Nothing
test_SnowParam_refclass <- function()
{
p <- SnowParam(2)
p2 <- p
checkTrue(!bpisup(p))
checkTrue(!bpisup(p2))
bpstart(p)
checkTrue(bpisup(p))
checkTrue(bpisup(p2))
bpstop(p)
checkTrue(!bpisup(p))
checkTrue(!bpisup(p2))
}
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.