Métodos para genéricos base

Muitas funções da base R são genéricas S3: print(), format(), summary(), toString(), length(), as.character() e outras. Adicionar um método faz com que sua classe funcione com uma função que todo usuário de R já conhece. summary.gradebook() gera um relatório sobre um objeto inteiro:

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")

Saída:

3 marks, average 82 

Verifique os parâmetros do genérico antes de escrever o método: summary() chama seu primeiro argumento de object, enquanto toString() e format() o chamam de x. toString() deve retornar uma única string:

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

Saída:

[1] "70 / 85 / 91"

Um método length() altera o significado de length() para a classe. Uma fila que armazena seus itens em um campo pode informar quantos itens contém, em vez do número de campos na 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))

Saída:

[1] 2
[1] 3

Os operadores também são genéricos. Um método chamado "+.money", escrito entre aspas por causa do símbolo, é executado quando qualquer um dos lados de + é um objeto money. Ele recebe os dois lados como e1 e 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)

Saída:

[1] 12
[1] FALSE