sync msg

philchalmers · philchalmers · commit e342c3762b45 · 2026-03-31T10:15:12.000-04:00
diff --git a/R/SimSolve.R b/R/SimSolve.R
@@ -621,7 +621,7 @@ SimSolve <- function(design, interval, b, generate, analyse, summarise,
             parallel::clusterExport(cl=cl, export_funs, envir = parent.frame(1L))
             parallel::clusterExport(cl=cl, "ANALYSE_FUNCTIONS", envir = environment())
             if(verbose > 0 && verbose < 2)
-                message(sprintf("\nNumber of parallel clusters in use: %i", length(cl)))
+                message(sprintf("\nNumber of cores used in cluster: %i", length(cl)))
         }
     }
     compname <- Sys.info()['nodename']

Original file line number	Diff line number	Diff line change
`@@ -621,7 +621,7 @@ SimSolve <- function(design, interval, b, generate, analyse, summarise,`
`621`	`621`	`parallel::clusterExport(cl=cl, export_funs, envir = parent.frame(1L))`
`622`	`622`	`parallel::clusterExport(cl=cl, "ANALYSE_FUNCTIONS", envir = environment())`
`623`	`623`	`if(verbose > 0 && verbose < 2)`
`624`		`- message(sprintf("\nNumber of parallel clusters in use: %i", length(cl)))`
	`624`	`+ message(sprintf("\nNumber of cores used in cluster: %i", length(cl)))`
`625`	`625`	`}`
`626`	`626`	`}`
`627`	`627`	`compname <- Sys.info()['nodename']`