inst/ping.R

#! /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]))
})
wush978/RzmqJobQueue documentation built on May 4, 2019, 12:02 p.m.