Nothing
library("profmem")
if (capabilities("profmem")) {
p <- profmem({
x <- raw(1000)
stop("Woops!")
})
print(p)
} ## if (capabilities("profmem"))
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.