R中访问带行名的S4类对象槽时的异常内存消耗问题

• 这是R的**复制修改（copy-on-modify）**机制与S4槽的对象引用特性共同作用的结果：
  1. 初始化时，你将matrixWithNoRowNames赋值给matrixWithRowNames，此时两个槽指向同一个底层矩阵对象。
  2. 修改matrixWithRowNames的行名时，由于原矩阵仍被matrixWithNoRowNames引用，R需要复制整个矩阵以避免修改影响另一个槽。但这个复制操作被延迟到**首次实际访问该对象（如调用colSums）**时才执行，导致一次性复制大矩阵，产生峰值内存。
  3. 无行名的矩阵未被修改过，始终是原始对象，访问时无需复制，因此内存消耗可忽略。

针对大型对象，推荐以下两种规避方案：

方案1：直接初始化带行名的矩阵 #

避免共享对象引用，从根源上消除延迟复制的触发条件。修改初始化方法：

setMethod("initialize", signature("TestClass"),
          function(.Object) {
            nrow=1000
            ncol=10000
            # 直接创建无行名矩阵
            .Object@matrixWithNoRowNames <- matrix(runif(nrow*ncol), nrow)
            # 直接创建带行名的矩阵，不共享引用
            .Object@matrixWithRowNames <- matrix(runif(nrow*ncol), nrow, 
                                                 dimnames = list(as.character(1:nrow), NULL))
            return(.Object)
          })

如果需要两个矩阵数据完全一致，可以先生成数据向量再分别构建矩阵：

setMethod("initialize", signature("TestClass"),
          function(.Object) {
            nrow=1000
            ncol=10000
            data_vec <- runif(nrow*ncol)
            .Object@matrixWithNoRowNames <- matrix(data_vec, nrow)
            .Object@matrixWithRowNames <- matrix(data_vec, nrow, 
                                                 dimnames = list(as.character(1:nrow), NULL))
            return(.Object)
          })

方案2：在初始化阶段强制完成复制 #

如果必须通过复制无行名矩阵再修改行名的方式初始化，可在修改行名后强制触发复制，将内存消耗转移到初始化阶段：

setMethod("initialize", signature("TestClass"),
          function(.Object) {
            nrow=1000
            ncol=10000
            .Object@matrixWithNoRowNames <- matrix(runif(nrow*ncol), nrow)
            .Object@matrixWithRowNames <- .Object@matrixWithNoRowNames
            rownames(.Object@matrixWithRowNames) <- as.character(1:nrow)
            # 强制访问对象，触发复制
            force(.Object@matrixWithRowNames)
            return(.Object)
          })

这样在初始化完成后，matrixWithRowNames已经是独立的复制对象，后续访问时不会再产生额外内存消耗。

修改后重新运行peakRAM测试，首次访问带行名的矩阵槽时，内存消耗会与无行名的一致（仅为计算colSums所需的少量内存），或仅在初始化阶段产生一次内存消耗，避免运行时的峰值内存问题。

内容的提问来源于stack exchange，提问作者STHOH