Nothing
slug <- paste("test-gs", Sys.info()["user"], "", sep = "-")
TEST <- tempfile(slug, tmpdir = "") %>% basename()
p_ <- function(x) paste(TEST, x, sep = "-")
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.