Listas com uma Classe

S3 é o sistema de objetos mais antigo e mais utilizado do R. Um objeto S3 é uma lista comum com um atributo class, um rótulo que indica que tipo de objeto ele é. class(x) <- "dog" define o rótulo:

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

Saída:

[1] "dog"
Rex is 3

structure() constrói o valor e define seus atributos em uma única chamada, que é a maneira usual de criar um objeto S3. Os campos são acessados com $, como em qualquer lista:

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

Saída:

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

A classe é apenas um rótulo: R não verifica quais campos um objeto possui, portanto qualquer lista pode ser chamada de dog. unclass() remove o rótulo e devolve a lista simples:

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

Saída:

$x
[1] 1

$y
[1] 2

Os objetos S3 são valores. Uma função que altera um objeto altera sua própria cópia, portanto retorna a nova versão e o chamador a atribui. O original permanece como estava:

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)

Saída:

3 4