tests/cpuLoad.R

source("incl/start.R")

message("*** cpuLoad() ...")

loadavg <- cpuLoad()
print(loadavg)

stopifnot(
  is.numeric(loadavg),
  length(loadavg) == 3L,
  !is.null(names(loadavg)),
  identical(names(loadavg), c("1min", "5min", "15min")),
  all(is.na(loadavg) | loadavg >= 0)
)

message("*** cpuLoad() ... DONE")

source("incl/end.R")

Try the parallelly package in your browser

Any scripts or data that you put into this service are public.

parallelly documentation built on May 31, 2023, 5:46 p.m.