Metodi per i generics di base

Molte funzioni di base in R sono generiche S3: print(), format(), summary(), toString(), length(), as.character() e altre ancora. Aggiungere un metodo permette alla tua classe di funzionare con una funzione che ogni utente di R già conosce. summary.gradebook() fornisce un resoconto di un intero oggetto:

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

Output:

3 marks, average 82 

Controlla i parametri del generico prima di scrivere il metodo: summary() chiama il suo primo argomento object, mentre toString() e format() lo chiamano x. toString() dovrebbe restituire una singola stringa:

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

Output:

[1] "70 / 85 / 91"

Un metodo length() cambia il significato di length() per la classe. Una coda che memorizza i suoi elementi in un campo può indicare quanti elementi contiene, invece del numero di campi nell’elenco:

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

Output:

[1] 2
[1] 3

Anche gli operatori sono generici. Un metodo chiamato "+.money", scritto tra virgolette a causa del simbolo, viene eseguito quando uno dei due lati di + è un oggetto money. Riceve i due lati come 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)

Output:

[1] 12
[1] FALSE