E.g. some better way to do something like:
library(doParallel)
registerDoParallel(cl1 <- makeCluster(4))
cl_save <- foreach:::getDoPar()$data
registerDoParallel(cl2 <- makeCluster(2))
foreach(ic = 1:10, .combine = 'c') %dopar% { ic }
stopCluster(cl2)
registerDoParallel(cl_save)
foreach(ic = 1:10, .combine = 'c') %dopar% { ic }
stopCluster(cl1)