如何实现 S4 方法的子集替换

Question

我正在编写一个 S4 class，其中内部数据存储在数据库中，class 主要是访问和修改数据库中信息的看门人。 class 将具有 getInfoA 和 getInfoA<- 等方法来提取和设置某些信息。

我的问题属于以下情况：

myObject <- new('myClass', db = 'path/to/database')
getInfoA(myObject)[1:5] <- letters[1:5]

此处 setter 在赋值之前被子集化。通常当数据存储在标准 R 结构中时，这会自动解决，但是当数据存储在其他地方时如何优雅地处理这个问题？ R中有一个[<-原语，但我不清楚调度是如何进行的，在哪里以及如何拦截它...

Answer 1

遗憾的是，我对此没有很好的解释，但它是开箱即用的。也许 R 专家可以澄清这一点。

主要原因可能是 R 从不替换任何东西，而是创建一个新副本对象的（有一些例外，如原始运算符，例如 [[<- 在某些情况下可以原地替换）。

myClass <- setClass("myClass", slots=c(letters="character"))

setGeneric("getLetters", function(x)standardGeneric("getLetters"))
setGeneric("getLetters<-", function(x, value)standardGeneric("getLetters<-"))

setMethod("getLetters", "myClass", function(x) {
  x@letters
})

setReplaceMethod("getLetters", c("myClass", "character"), function(x, value) {
  message("value: ", paste0(value, collapse=", "))
  x@letters <- value
  x
})

a <- myClass(letters=LETTERS[1:10])
tracemem(a)
# [1] "<0x3716b40>"
getLetters(a)
#  [1] "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
getLetters(a)[1:5] <- letters[1:5]
# tracemem[0x3716b40 -> 0x39439c8]:
# tracemem[0x39439c8 -> 0x3293f70]:
# value: a, b, c, d, e, F, G, H, I, J
# tracemem[0x3293f70 -> 0x34aae60]: getLetters<- getLetters<-

所以当您调用 getLetters(a)[1:5] <- letters[1:5] 时基本上会发生以下情况：

value <- getLetters(a)
value <- c(letters[1:5], value[6:10])
a <- `getLetters<-`(a, value=value)

如何实现 S4 方法的子集替换

How to implement subset replacement for S4 methods

r

s4