Nothing
register_tinytest_extension(pkg="lulz"
, functions=c("fee","fi","fu","bar"))
ext <- getOption("tt.extensions")
expect_equal(ext, list(lulz = c("fee","fi","fu","bar") ))
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.