R：矢量化在 R6 中设置活动字段

Question

我有一个简单的 R6 对象生成器，带有一个 get/set 活动绑定：

myClass <- R6Class("myClass",
                   private = list(
                     ..status = TRUE
                   ),
                   active = list(
                     status = function(value) {
                       if (missing(value)) {
                         private$..status
                       } else private$..status <- value
                     }
                   )
)

我可以创建一个对象列表，使用myClass 生成：

class_list <- map(1:10, ~ myClass$new())

我可以得到列表中每个对象的status，使用purrr:: map：

map(class_list, ~ .x$status)

但是如果我想设置class_list 中所有对象的status 怎么办？我想用purrr:: walk 做到这一点：

walk(class_list, ~ .x$status <- FALSE)

这会抛出一个Error: unexpected [symbol]...，就像使用=一样。

谁能提供解决方案？最好使用purrr。

谢谢！

Answer 1

我们可以将这些赋值封装在 {} 中并返回原始对象 (.x)

map(class_list, ~ {.x$status <- FALSE; .x})

现在，再次检查status

map_lgl(class_list, ~ .x$status)
#[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE