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 Kennzeichnung, die angibt, um welche Art von Objekt es sich handelt. class(x) <- "dog" legt die Kennzeichnung 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, was die übliche Methode zum Erstellen eines S3-Objekts ist. Auf die Felder wird wie bei jeder Liste mit $ zugegriffen:

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 nur ein Bezeichner: R überprüft nicht, welche Felder ein Objekt hat, daher kann jede Liste dog genannt werden. unclass() entfernt den Bezeichner 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. Daher gibt sie die neue Version zurück, und der Aufrufer weist sie einer Variablen 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