# \donttest{
cl <- makeClusterPSOCK(2)
print(cl)
## Terminate the second cluster node
parallel::stopCluster(cl[2])
## Show that cluster node #2 is no longer alive (wait a bit first)
Sys.sleep(1.0)
print(isNodeAlive(cl))
print(cl)
## "Restart" it
cl[2] <- cloneNode(cl[2])
print(cl)
## Check all nodes
print(isNodeAlive(cl))
# }
Run the code above in your browser using DataLab