File: makeClusterPSOCK_args.R

package info (click to toggle)
r-cran-future 1.21.0%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 1,544 kB
  • sloc: sh: 14; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 506 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
makeClusterPSOCK_args <- local({
  .args <- NULL
  
  function() {
    if (is.null(.args)) {
      ## Arguments meant for makeClusterPSOCK() and makeNodePSOCK()
      args <- character(0L)
      for (name in c("makeClusterPSOCK", "makeNodePSOCK")) {
        if (!exists(name, mode = "function")) next
        fcn <- get(name, mode = "function")
        args <- c(args, names(formals(fcn)))
      }
      args <- unique(args)
      args <- setdiff(args, "...")
      .args <<- args
    }
    .args
  }
})