cl <- makeCluster()
clusterCall(cl, function() Sys.info()["nodename"])
stopCluster(cl)