Listas con una clase

S3 es el sistema de objetos más antiguo y utilizado de R. Un objeto S3 es una lista ordinaria con un atributo class, una etiqueta que indica qué tipo de objeto es. class(x) <- "dog" establece la etiqueta:

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

Salida:

[1] "dog"
Rex is 3

structure() construye el valor y establece sus atributos en una sola llamada, que es la forma habitual de crear un objeto S3. Los campos se leen con $, como en cualquier lista:

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

Salida:

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

La clase solo es una etiqueta: R no comprueba qué campos tiene un objeto, por lo que cualquier lista puede llamarse dog. unclass() elimina la etiqueta y devuelve la lista simple:

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

Salida:

$x
[1] 1

$y
[1] 2

Los objetos S3 son valores. Una función que cambia un objeto cambia su propia copia, por lo que devuelve la nueva versión y quien la llama se la asigna. El original permanece como estaba:

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)

Salida:

3 4