tests/tests-99-stop-rserve.R

library(RSclient)

port = 33311:33314

# shutdown any running nodes
l = lapply(setNames(port, port), function(port) tryCatch(RSconnect(port = port), error = function(e) e, warning = function(w) w))
invisible(lapply(l, function(rsc) if(inherits(rsc, "sockconn")) RSshutdown(rsc)))

invisible(TRUE)
jangorecki/big.data.table documentation built on May 18, 2019, 12:24 p.m.