Foreach循环使用＆＃34;如果＆＃34;几个核心的条件

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时，我发现它只在一个核心上运行，我的目标是在多个核心上并行化。