source("incl/start.R")
message("*** freeLoad() ...")
free <- freeCores()
print(free)
stopifnot(
is.integer(free),
length(free) == 1L,
!is.na(free), free >= 1L
)
message("*** freeLoad() ... DONE")
source("incl/end.R")
Generated by dwww version 1.15 on Sat May 18 06:42:44 CEST 2024.