inst/testme/test-cpuLoad.R

library(parallelly)

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")

Try the parallelly package in your browser

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

parallelly documentation built on April 4, 2025, 4:38 a.m.