stresser.R 188 B

12345678910111213
  1. #!/bin/env Rscript
  2. library(rtape);
  3. Sys.getpid()->w;
  4. for(e in 1:100){
  5. message(sprintf("%s %s",w,e));
  6. Sys.time()->t;
  7. k<-list(pid=w,e=e,t=t);
  8. rtapeAdd('stress.tape',k,safe="retry");
  9. }