ParLapply в пределах классов R6

Я хочу использовать parLapply() для окон в объекте R6 и заметил (что, по крайней мере, в некоторых случаях), что мне не нужно экспортировать функции или данные R6 в узлы.

Вот пример, когда я могу получить доступ к приватным методам в parLapply():

require(R6);require(parallel)
square <-
R6Class("square",
        public = list(
            numbers = NA,
            squares = NA,
            initialize = function(numbers,integer) {
                self$numbers <- numbers
                squares <- private$square.numbers()
            }
        ),
        private = list(
            square = function(x) {
                return(x^2)
            },
            square.numbers = function() {
                cl <- makeCluster(detectCores())
                self$squares <- parLapply(cl,
                                          self$numbers,
                                          function (x) private$square(x)
                                          )
                stopCluster(cl)
            }
        ))
##Test
test <- square$new(list(1,2,3))
print(test$squares)
# [[1]]
# [1] 1
# 
# [[2]]
# [1] 4
# 
# [[3]]
# [1] 9

И второй пример, где я также могу получить доступ к открытым членам:

square2 <-
R6Class("square2",
        public = list(
            numbers = NA,
            squares = NA,
            integer = NA,
            initialize = function(numbers,integer) {
                self$numbers <- numbers
                self$integer <- integer
                squares <- private$square.numbers()
            }
        ),
        private = list(
            square = function(x) {
                return(x^2)
            },
            square.numbers = function() {
                cl <- makeCluster(detectCores())
                self$squares <- parLapply(cl,
                                          self$numbers,
                                          function (x) private$square(x)+self$integer
                                          )
                stopCluster(cl)
            }
        ))
##Test
test2 <- square2$new(list(1,2,3),2)
print(test2$squares)
#[[1]]
#[1] 3
#
#[[2]]
#[1] 6
#
#[[3]]
#[1] 11

Мой вопрос двоякий: (1) Что относительно R6 делает это возможным, так что мне не нужно экспортировать объекты и функции данных; и (2) могу ли я полагаться на это поведение или это артефакт этих конкретных примеров?

UPDATE:

Это поведение также работает с использованием общедоступных методов и членов после создания объекта:

square3 <- R6Class(
    classname = "square3",
    public = list(
        numbers = NA,
        squares = NA,
        integer = NA,
        square = function(x) {
           return(x^2)
        },
        square.numbers = function() {
            cl <- makeCluster(detectCores())
            self$squares <- parLapply(cl,
                                      self$numbers,
                                   function (x) self$square(x)+self$integer
                                  )
        stopCluster(cl)
    },
    initialize = function(numbers,integer) {
        self$numbers <- numbers
        self$integer <- integer
    }
    )
)
test3.obj <- square3$new(list(1,2,3),2)
test3.obj$square.numbers()
test3.obj$squares

# [[1]] 
# [1] 3
#
# [[2]]
# [1] 6
#
# [[3]]
# [1] 11

Ответ 1

С классами R6 каждый раз, когда вы создаете экземпляр объекта, этот объект получает копию каждой функции/метода с измененной средой. Для функций присваивается среда, в которой self указывает на общедоступную среду объекта (это открытый объект объекта), а private указывает на частную среду объекта.

Это отличается от методов S3, которые не копируются для каждого экземпляра объекта.

Вкратце: с R6 все самодостаточно в объекте; с S3, объект не содержит методов.

Я не знаю, как использовать parLapply, но я считаю, что безопасно полагаться на то, что работает с parLapply.