r - 在多个核心上具有“if”条件的 Foreach 循环

Question

如何if else在循环中使用条件foreach并使用多个内核？我想做类似的事情：

library(parallel)
library(doMC)
registerDoMC(detectCores()-1) 

# detectCores()-1
# [1] 7

source("my_file.R")
source("my_function.R")

A<- foreach(i=1:10) %dopar%
{
    if (i<5) my.file <- my_file(i)
    else     my.file <- my_file(i*i)

    my_function(my.file)
}

它可以工作，但是当我top在终端上打开 a 时，我看到它只在一个内核上运行，而我的目标是在多个内核上并行化。