Métodos para genéricos base

Muchas funciones de R base son genéricas S3: print(), format(), summary(), toString(), length(), as.character() y más. Añadir un método hace que tu clase funcione con una función que todo usuario de R ya conoce. summary.gradebook() informa sobre un objeto completo:

summary.gradebook <- function(object, ...) {
  paste0(length(object$marks), " marks, average ", mean(object$marks))
}
g <- structure(list(marks = c(70, 85, 91)), class = "gradebook")
cat(summary(g), "\n")

Salida:

3 marks, average 82 

Comprueba los parámetros del genérico antes de escribir el método: summary() llama object a su primer argumento, mientras que toString() y format() lo llaman x. toString() debe devolver una sola cadena:

toString.gradebook <- function(x, ...) paste(x$marks, collapse = " / ")
g <- structure(list(marks = c(70, 85, 91)), class = "gradebook")
print(toString(g))

Salida:

[1] "70 / 85 / 91"

Un método length() cambia lo que significa length() para la clase. Una cola que almacena sus elementos en un campo puede indicar cuántos elementos contiene, en lugar del número de campos de la lista:

q <- structure(list(items = c("a", "b", "c"), name = "jobs"), class = "queue")
print(length(q))
length.queue <- function(x) length(x$items)
print(length(q))

Salida:

[1] 2
[1] 3

Los operadores también son genéricos. Un método llamado "+.money", escrito entre comillas debido al símbolo, se ejecuta cuando cualquiera de los lados de + es un objeto money. Recibe ambos lados como e1 y e2:

new_money <- function(amount) structure(list(amount = amount), class = "money")
"+.money" <- function(e1, e2) new_money(e1$amount + e2$amount)
"==.money" <- function(e1, e2) e1$amount == e2$amount
a <- new_money(5)
b <- new_money(7)
print((a + b)$amount)
print(a == b)

Salida:

[1] 12
[1] FALSE