#' A function which takes no arguments and kills zombie R processes if the user is using a UNIX based machine
#'
#' @export
kill_zombies <- function(){
includes <- '#include <sys/wait.h>'
code <- 'int wstat; while (waitpid(-1, &wstat, WNOHANG) > 0) {};'
wait <- inline::cfunction(body=code, includes=includes, convention='.C')
wait()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.