如何在R中遍历S4对象？

Question

我创建了一个包含图片的类。对于这个类，我创建了两个对象(两张图片)。我想要一个能打印所有图片的循环。

```{r echo=FALSE, comment=""}

生成类

setClass(“图片”，slots=list(id=“数字”，path=“字符”)

添加第一张图片

full_file_path <- "testphoto.JPG“

图片<- pic_obj (“图片”，id=1，path=full_file_path)

添加第二张图片

full_file_path <- "parrot.jpeg“

图片<- pic_obj (“图片”，id=2，path=full_file_path)

循环槽图片(如何？为?foreach？while?)

cat("ID="，pic_obj@id，"\n")

cat("Path="，pic_obj@path，"\n")

这将打印：

ID= 2 
Path= parrot.jpeg 

然而，我想这样做：

ID= 1 
Path= testphoto.JPG
ID= 2 
Path= parrot.jpeg 

Answer 1

正如评论中提到的，这两行

pic_obj <- new("Picture", id=1, path=full_file_path)

和

pic_obj <- new("Picture", id=2, path=full_file_path)

创建一个名为pic_obj的对象，然后覆盖它，这样第一个对象就会丢失。相反，尝试以下两种方式之一

pic_obj_1 <- new("Picture", id=1, path=full_file_path)
pic_obj_2 <- new("Picture", id=2, path=full_file_path)

或

pic_obj <- new("Picture", id=1:2, path=c(full_file_path_1,full_file_path_2))

如果使用第二种方法，则需要确保为picture类编写的任何方法(函数)都可以使用向量参数。