Listy z klasą

S3 to najstarszy i najczęściej używany system obiektów w R. Obiekt S3 to zwykła lista z atrybutem class, etykietą określającą, jakiego rodzaju jest to obiekt. class(x) <- "dog" ustawia etykietę:

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

Wynik:

[1] "dog"
Rex is 3

structure() tworzy wartość i ustawia jej atrybuty w jednym wywołaniu, co jest typowym sposobem tworzenia obiektu S3. Pola odczytuje się za pomocą $, tak jak w każdej liście:

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

Wynik:

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

Klasa to tylko etykieta: R nie sprawdza, jakie pola ma obiekt, więc każdą listę można nazwać dog. unclass() usuwa etykietę i zwraca zwykłą listę:

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

Wynik:

$x
[1] 1

$y
[1] 2

Obiekty S3 są wartościami. Funkcja, która zmienia obiekt, zmienia jego własną kopię, więc zwraca nową wersję, a wywołujący ją kod przypisuje ją do zmiennej. Oryginał pozostaje bez zmian:

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)

Wynik:

3 4