Nothing
test_that("summary reports correctly its content", {
withr::local_seed(0)
dts <- sample(c(0L, 1L), 100, replace = TRUE)
dts_tree <- ctx_tree(dts, max_depth = 5, min_size = 2, backend = "C++")
expect_snapshot(summary(dts_tree))
})
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.