Nothing
expect_targeted_listener <- function(listener, call, t, target) {
mock_args <- mockery::mock_args(listener)
expect_equal(mock_args[[call]][[1]], t)
expect_equal(mock_args[[call]][[2]]$to_vector(), target)
}
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.