复制带有槽的 R 对象的结构（但不复制数据）

Question

我想复制一个 R 对象的结构，它是一个带槽的列表。

是否可以这样做以生成没有数据的副本 R 对象，或者将所有数据替换为 NA？

下面是一个极其简化的 R 列表对象，以槽为例：

setClass("Car",representation=representation(
   price = "numeric",
   numberDoors="numeric",
   typeEngine="character",
   mileage="numeric"
))
aCar <- new("Car",price=20000,numberDoors=4,typeEngine="V6",mileage=143)
obj <- list(test1="testing",test2=aCar)

用 NA 手动替换每个插槽是行不通的，因为这是一个简化版本...有什么想法吗？ 谢谢！

Answer 1

可以编写一个copy 方法来制作副本，然后将槽设置为NA。但由于仅分配 NA 并不容易，因此可以通过类联合明确允许逻辑：

## numeric cannot contain just NA
setClassUnion("numeric_or_NA", c("numeric", "logical"))
setClassUnion("character_or_NA", c("character", "logical"))

setClass("Car",representation=representation(
  price = "numeric_or_NA",
  numberDoors="numeric_or_NA",
  typeEngine="character_or_NA",
  mileage="numeric_or_NA"
))

setGeneric("copy", function(obj, ...) standardGeneric("copy"))

setMethod("copy", "Car",
  function(obj, ...) {
    for (s in slotNames(class(obj))) slot(obj, s) <- NA
    obj        
  }
)

aCar <- new("Car",price=20000,numberDoors=4,typeEngine="V6",mileage=143)
obj <- list(test1="testing",test2=aCar)
otherCar <- copy(aCar)
str(otherCar)

编辑

另一种方法是检查插槽的类并将NA 转换为正确的类型：

setClass("Car",representation=representation(
  price = "numeric",
  numberDoors="numeric",
  typeEngine="character",
  mileage="numeric"
))

setGeneric("copy", function(obj, ...) standardGeneric("copy"))

setMethod("copy", "Car",
          function(obj, ...) {
            s  <- getSlots(class(obj))
            nm <- slotNames(class(obj))
            for (i in 1:length(s)) {
              slot(obj, nm[i]) <- as(NA, s[i])
            }
            obj        
          }
)

aCar <- new("Car", price=20000, numberDoors=4, typeEngine="V6", mileage=143)
obj <- list(test1="testing",test2=aCar)
otherCar <- copy(aCar)
str(otherCar)

最后一个问题：为什么要复制对象而不是使用类中的new 实例化它？

还要注意，除了 S4 之外，R 还具有其他几个基于原型（无类）的类系统。