Listes avec une classe

S3 est le système d’objets le plus ancien et le plus utilisé de R. Un objet S3 est une liste ordinaire avec un attribut class, une étiquette qui indique de quel type d’objet il s’agit. class(x) <- "dog" définit l’étiquette :

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

Résultat :

[1] "dog"
Rex is 3

structure() construit la valeur et définit ses attributs en un seul appel, ce qui est la manière habituelle de créer un objet S3. Les champs se lisent avec $, comme dans n’importe quelle liste :

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

Sortie :

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

La classe n’est qu’une étiquette : R ne vérifie pas les champs que possède un objet, donc n’importe quelle liste peut être appelée dog. unclass() supprime l’étiquette et renvoie la liste ordinaire :

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

Résultat :

$x
[1] 1

$y
[1] 2

Les objets S3 sont des valeurs. Une fonction qui modifie un objet modifie sa propre copie : elle renvoie donc la nouvelle version et l’appelant l’assigne. L’original reste inchangé :

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)

Résultat :

3 4