Nothing
df <- data.frame(x = integer(0L))
vl <- validator(x > 0L)
cf <- confront(df, vl)
expect_silent(aggregate(cf))
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.