Sınıf ile Listeler

S3, R'nin en eski ve en yaygın kullanılan nesne sistemidir. Bir S3 nesnesi, ne tür bir nesne olduğunu belirten bir etiket olan class özniteliğine sahip sıradan bir listedir. class(x) <- "dog" etiketi ayarlar:

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

Çıktı:

[1] "dog"
Rex is 3

structure() tek bir çağrıda değeri oluşturur ve özniteliklerini ayarlar; bu, bir S3 nesnesi oluşturmanın yaygın yoludur. Alanlar, herhangi bir listedeki gibi $ ile okunur:

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

Çıktı:

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

Sınıf yalnızca bir etikettir: R, bir nesnenin hangi alanlara sahip olduğunu denetlemez; bu nedenle herhangi bir listeye dog adı verilebilir. unclass() etiketi kaldırır ve düz listeyi geri verir:

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

Çıktı:

$x
[1] 1

$y
[1] 2

S3 nesneleri değerlerdir. Bir nesneyi değiştiren işlev kendi kopyasını değiştirir; bu yüzden yeni sürümü döndürür ve çağıran taraf bunu atar. Özgün nesne olduğu gibi kalır:

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)

Çıktı:

3 4