القوائم باستخدام فئة

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