רשימות עם מחלקה

S3 היא מערכת העצמים הוותיקה והנפוצה ביותר של R. אובייקט S3 הוא רשימה רגילה עם מאפיין class, תווית שמציינת איזה סוג של אובייקט הוא. class(x) <- "dog" מגדיר את התווית:

rex <- list(name = "Rex", age = 3)
class(rex) <- "dog"
print(class(rex))
cat(rex$name, "is", rex$age)

פלט:

[1] "dog"
Rex is 3

structure() בונה את הערך ומגדירה את התכונות שלו בקריאה אחת, וזו הדרך המקובלת ליצור אובייקט S3. קוראים את השדות באמצעות $, כמו בכל רשימה:

rex <- structure(list(name = "Rex", age = 3), class = "dog")
print(class(rex))
print(is.list(rex))
print(rex$age)

פלט:

[1] "dog"
[1] TRUE
[1] 3

המחלקה היא רק תווית: R לא בודקת אילו שדות יש לאובייקט, ולכן אפשר לקרוא לכל רשימה dog. unclass() מסירה את התווית ומחזירה את הרשימה הרגילה:

p <- structure(list(x = 1, y = 2), class = "point")
print(unclass(p))

פלט:

$x
[1] 1

$y
[1] 2

אובייקטי S3 הם ערכים. פונקציה שמשנה אובייקט משנה את העותק שלה, ולכן היא מחזירה את הגרסה החדשה והקורא משייך אותה. המקור נשאר כפי שהיה:

birthday <- function(d) {
  d$age <- d$age + 1
  d
}
rex <- structure(list(name = "Rex", age = 3), class = "dog")
older <- birthday(rex)
cat(rex$age, older$age)

פלט:

3 4