#! /usr/bin/Rscript
cat(Sys.getpid())
capture.output({
suppressPackageStartupMessages(library(RzmqJobQueue))
argv <- commandArgs(trailingOnly=TRUE)
stopifnot(length(argv) == 3)
while(TRUE) ping(argv[1], argv[2], as.integer(argv[3]))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.