## Not run:
# # example 1
# # one available machine and one non-existent machine
# s <- sleigh(c('localhost', 'noname'))
# slist <- status(s)
# # slist$numWorkers = the number of worker started
# # slist$closed = whether the worker group is closed or not.
#
# # example 2
# # check the status of worker group after 20 seconds
# slist <- status(s, timeout=20)
#
# # example 3
# # close the group after 10 seconds, regardless of whether
# # all workers have started up successfully.
# slist <- status(s, closeGroup=TRUE, timeout=10)
# ## End(Not run)
Run the code above in your browser using DataLab