Listen mit einer Klasse

S3 ist R's ältestes und am häufigsten verwendetes Objektsystem. Ein S3-Objekt ist eine gewöhnliche Liste mit einem class-Attribut, einer Bezeichnung, die angibt, um welche Art von Objekt es sich handelt. class(x) <- "dog" legt die Bezeichnung fest:

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

Ausgabe:

[1] "dog"
Rex is 3

structure() erstellt den Wert und legt seine Attribute in einem einzigen Aufruf fest. Das ist die übliche Methode, um ein S3-Objekt zu erstellen. Auf die Felder greifst du wie bei jeder Liste mit $ zu:

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

Ausgabe:

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

Die Klasse ist lediglich eine Bezeichnung: R prüft nicht, welche Felder ein Objekt hat, daher kann jede Liste als dog bezeichnet werden. unclass() entfernt die Bezeichnung und gibt die einfache Liste zurück:

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

Ausgabe:

$x
[1] 1

$y
[1] 2

S3-Objekte sind Werte. Eine Funktion, die ein Objekt ändert, ändert ihre eigene Kopie, also gibt sie die neue Version zurück und der Aufrufer weist sie zu. Das Original bleibt unverändert:

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)

Ausgabe:

3 4