18 agosto, 2021
Segundo Chambers (2016):
fgenerica()classefgenerica.classe()# Funcao generica
quem <- function(x) UseMethod("quem")
## Metodos
quem.eh <- function(x) print("Sou eu!")
quem.default <- function(x) print("??")
# Aplicacao:
pessoa <- "ben" # objeto sem atributo 'class'
quem(pessoa) # Aplicando o metodo S3
## [1] "??"
#--------
class(pessoa) <- "eh"
quem(pessoa)
## [1] "Sou eu!"
#---------
quem(unclass(pessoa)) # unclass omite o atributo 'class' ao objeto
## [1] "??"
#---------
class(pessoa) <- "outro" # Mudando o atributo 'class'
quem(pessoa)
## [1] "??"
Chambers, John M. 2016. Extending R. The R Series. Boca Raton, Florida: Chapman; Hall/CRC.