Nothing
library(parallelly)
message("*** freeLoad() ...")
free <- freeCores()
print(free)
stopifnot(
is.integer(free),
length(free) == 1L,
!is.na(free), free >= 1L
)
message("*** freeLoad() ... 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.