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)
}

動作しますが、ターミナルで a を開くtopと、1 つのコアだけで実行されていることがわかります。私の目的は、複数のコアで並列化することです。