Nothing
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")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.