Fatal编程技术网
  • r/
  • R：矢量化设置R6中的活动字段

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

r

R：矢量化设置R6中的活动字段,r,vectorization,purrr,r6,R,Vectorization,Purrr,R6,我有一个简单的R6对象生成器，带有get/set活动绑定： myClass <- R6Class("myClass", private = list( ..status = TRUE ), active = list( status = function(value) {

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

myClass <- R6Class("myClass",
                   private = list(
                     ..status = TRUE
                   ),
                   active = list(
                     status = function(value) {
                       if (missing(value)) {
                         private$..status
                       } else private$..status <- value
                     }
                   )
)
我可以使用
purr:：map
获取列表中每个对象的
状态：


map(class_list, ~ .x$status)


但是如果我想设置
类列表中所有对象的
状态
，该怎么办？我想用
purr:：walk
：


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



walk（class_list，~.x$status我们可以将这些赋值包装在
{}
中，并返回原始对象（
.x
）


太棒了，我不得不等着接受这个，但我会的。谢谢！

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



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



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