Nothing
test_that("addPriorGroups", {
priorGroupDF = data.frame(label = c("x","y"),
priorGroup=1)
assign("priorGroupDF",priorGroupDF, cacheEnv)
assign("meaningfulLabels",data.frame(rootLabel = c("x","y"), newNames = c("x","y")), cacheEnv)
drawsDF = data.frame(x=c(4,1),y=c(10,2))
testthat::expect_no_error(causact:::addPriorGroups(drawsDF))
})
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.