Cluster nodes created by makeClusterPSOCK() gained attribute 'calls'

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: parallelly
-Version: 1.44.0-9021
+Version: 1.44.0-9022
 Title: Enhancing the 'parallel' Package
 Imports:
     parallel,

NEWS.md

@@ -20,6 +20,10 @@
  * `availableWorkers()` gained argument `...`, which passes any
    additional arguments to `availableCores()`, if specified.
 
+ * Cluster nodes created by `makeClusterPSOCK()` gained attribute
+   `calls`, which records the `sys.calls()`. This can be useful when
+   troubleshooting from where a cluster was created.
+ 
 ## Bug Fixes
 
  * `availableCores()` would not respect `method = "fallback"` if

R/launchNodePSOCK.R

@@ -221,6 +221,7 @@ launchNodePSOCK <- function(options, verbose = FALSE) {
   structure(
     list(con = con, host = worker, rank = rank, rshlogfile = rshlogfile),
     options = options,
+    calls = sys.calls(),
     class = c("RichSOCKnode", if (useXDR) "SOCKnode" else "SOCK0node")
   )
 } ## launchNodePSOCK()

R/makeClusterPSOCK.R

@@ -385,6 +385,7 @@ makeClusterPSOCK <- function(workers, makeNode = makeNodePSOCK, port = c("auto",
         scon <- structure(
           list(con = con, host = localhostHostname, rank = ready),
           options = options,
+          calls = sys.calls(),
           class = nodeClass
         )
         res <- tryCatch({