cluster.functions <- local({
workers <- future::availableCores(constraints="multicore")
if (workers == 1L) {
makeClusterFunctionsLocal()
} else {
makeClusterFunctionsMulticore(ncpus=workers)
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.