R foreach параллельная обработка с неэкспортированными функциями (на примере C50)

Я пытаюсь извлечь правила из модели C50 при параллельной обработке. Этот ответ помог мне извлечь правила из объекта модели. Однако, поскольку мне нужно, чтобы модели обрабатывались параллельно, я использую foreach. Кажется, это проблема с неэкспортируемой функцией, так как она не видит объект данных. Вот некоторый воспроизводимый код:

library(foreach)
library(doMC)
registerDoMC(2)

j = c(1,2)
result = foreach(i = j) %dopar% {
  library(C50)
  d = iris
  model <- C5.0(Species ~ ., data = d)
  modParty <- C50:::as.party.C5.0(model)
  return(modParty)
}

В этом случае он просто вычисляет модель дважды. В моем реальном коде d — это постоянно меняющийся образец, который также генерируется в функции foreach.

Моя отладка показала, что разная строка modParty <- C50:::as.party.C5.0(model). Выдает ошибку

Ошибка в {: задача 1 не удалась - «Объект 'd' не найден»

даже если d наверняка доступен для каждого воркера в кластере. Я проверил это с логом в файл через loginfo(ls()) пакета logging.

Почему функция не видит объект d? Любая помощь очень ценится.

В качестве дополнительной информации здесь traceback()

> traceback()
3: stop(simpleError(msg, call = expr))
2: e$fun(obj, substitute(ex), parent.frame(), e$data)
1: foreach(i = j) %dopar% {
       library(C50)
       d = iris
       model <- C5.0(Species ~ ., data = d)
       modParty <- C50:::as.party.C5.0(model)
       return(modParty)
   }

Изменить

Просто для уточнения: это ничего не должно делать с foreach. Это та же ошибка с нормальной функцией:

library(C50)

d = iris

getC50Party = function(dat){
  model <- C5.0(Species ~ ., data = dat)
  modParty <- C50:::as.party.C5.0(model)
  return(modParty)
}

c50Party = getC50Party(d)

Ошибка в {: задача 1 не удалась - «Объект 'dat' не найден»

Проблема в том, что as.party.C5.0 пытается получить доступ к объекту данных из общей рабочей области.