r - how to modify a list of R6class objects by reference?

Question

See this short example:

library(R6)
library(pryr)

Person <- R6Class("Person", public = list(name = NA, hair = NA, initialize = function(name, 
  hair) {
  if (!missing(name)) self$name <- name
  if (!missing(hair)) self$hair <- hair
}, set_hair = function(val) {
  self$hair <- val
}))
ann <- Person$new("Ann", "black")
address(ann)
#> [1] "0x27e01f0"

ann$name <- "NewName"
address(ann)
#> [1] "0x27e01f0"


ann2 <- Person$new("Ann", "white")

g <- c(ann, ann2)
address(g)
#> [1] "0x32cc2d0"

g[[1]]$hair <- "red"
address(g)
#> [1] "0x34459b8"

I was expecting the operation g[[1]]$hair <- "red" will change g by reference like ann$name <- "NewName". Is there a way to achieve this?

Answer 1

g只是一个向量，所以它没有引用语义。即便如此，你得到一个新的对象g，它指的是相同的对象ann和ann2。您可以通过以下方式验证address(g[[1]])

如果不想更改g，则必须从中提取对象g，然后调用赋值方法。

address(g)
##[1] "0000000019782340"

# Extract the object and assign
temp <- g[[1]]
temp$hair <- "New red"

address(g)
[1] "0000000019782340"
#Verify the value on g
g[[1]]$hair
##[1] "New red"

address(g)
#[1] "0000000019782340"