library(parallel) cl <- makeCluster(16) background_tasks <- function(arg) { while (TRUE) { # keep doing stuff in the ba