为何自定义S3类对象无法通过c()函数添加到R语言列表中？

问题原因 #

你定义的my_custom_s3_class实例本质是空列表，仅额外附加了类标识和自定义属性。使用c()合并列表时，空列表不会向目标列表添加任何元素，因此看起来像是添加失败，实际是合并了空内容。

验证这一点：

length(my_custom_object)
# 输出：0

解决方案 #

方式1：重构构造函数，将属性存入列表内部 #

不再通过attributes()额外添加属性，而是把属性作为列表元素存储，让实例不再是空列表，c()即可正常识别并添加：

# 重构构造函数
my_custom_s3_class <- function(attribute1, attribute2) {
  obj <- list(
    attribute1 = attribute1,
    attribute2 = attribute2
  )
  class(obj) <- "my_custom_s3_class"
  obj
}

# 调整print方法，直接访问列表元素
print.my_custom_s3_class <- function(x, ...) {
  cat(x$attribute1, x$attribute2)
}

# 测试添加
my_custom_object <- my_custom_s3_class("hello", "world")
my_list <- c(my_list, my_custom_object)
my_list

此时my_list会包含第三个元素，即你的自定义类实例。

方式2：将自定义实例用list()包裹后合并 #

若不想修改构造函数，只需在添加时把自定义对象放入单元素列表，再执行c()合并：

my_list <- c(my_list, list(my_custom_object))
my_list

这会把整个自定义类实例作为一个元素添加到my_list中。

内容的提问来源于stack exchange，提问作者Jayden.Cameron