library("profmem")
if (capabilities("profmem")) {
## Defaults to on_error = "ignore")
p <- profmem({
x <- raw(1000)
stop("Woops!")
})
print(p)
for (on_error in c("ignore", "warning", "error")) {
message(sprintf("- profmem(..., on_error = \"%s\")", on_error))
res <- tryCatch({
profmem({
x <- raw(1000)
stop("Woops!")
}, on_error = on_error)
}, error = identity, warning = identity)
if (on_error == "ignore") {
stopifnot(inherits(res, "Rprofmem"))
} else {
stopifnot(inherits(res, on_error))
}
}
} ## if (capabilities("profmem"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.