Nothing
## start small, might become more interesting
run_local <- function(x, jobj, cores = opts_flow$get("local_cores"), execute){
message("\nWorking on: ", jobj@name)
if(!execute)
return(rep(0, length(x)))
## --- force cores to be 1 IF serial
if(jobj@submission_type == "serial")
cores = 1
ret <- mclapply(x, system, intern = TRUE, mc.cores = cores)
return(unlist(ret))
}
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.