Nothing
# context("Set up")
# file_fl <- file()
# write(paste(c("Y"), collapse = "\n"), file_fl)
# withr::local_options(list(prompt_opts.con = file_fl,.local_envir = teardown_env()))
# withr::defer(close(file_fl), teardown_env())
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.