Nothing
test_that("assign_data_funcs works", {
expect_equal(
{
a <- get_series(template_test())
a <- assign_data_funcs(a)
isTRUE("fnc_str" %inn% a$lines)
},
T
)
})
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.