system.done <- function(expr, dev=1){
ppt <- function(y) {
if (!is.na(y[4L]))
y[1L] <- y[1L] + y[4L]
if (!is.na(y[5L]))
y[2L] <- y[2L] + y[5L]
y[1L:3L]
}
if (!exists("proc.time"))
return(rep(NA_real_, 5L))
time <- proc.time()
on.exit({cat("Timing stopped at:", ppt(proc.time() - time),
"\n")
pbPost(type='note',
title='Error',
body=geterrmessage(),
recipients=dev)
beep()})
expr
new.time <- proc.time()
on.exit()
pbPost(type='note',
title='Done!',
body=paste('expression took ',
round((new.time - time)[['elapsed']]/ 60, 2), ' minutes'),
recipients=dev)
beep()
structure(new.time - time, class = "proc_time")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.