necesario: Cambiar el método de impresión por defecto de un objeto

Question

Necesito un poco de ayuda con la jerga, y un pequeño fragmento de código de ejemplo. Los diferentes tipos de objetos tienen una forma específica de mostrarse solos cuando se escribe el nombre del objeto y se presiona enter, un objeto lm muestra un resumen del modelo, un vector enumera los contenidos del vector.

me gustaría ser capaz de escribir mi propio camino para "mostrar" el contenido de un determinado tipo de objeto. Idealmente, me gustaría poder separar esto de los tipos existentes de objetos.

¿Cómo voy a ir haciendo esto?

Answer 1

He aquí un ejemplo para que pueda empezar. Una vez que obtenga la idea básica de cómo se envían los métodos S3, eche un vistazo a cualquiera de los métodos de impresión devueltos por methods("print") para ver cómo puede lograr estilos de impresión más interesantes.

## Define a print method that will be automatically dispatched when print() 
## is called on an object of class "myMatrix" 
print.myMatrix <- function(x) { 
    n <- nrow(x) 
    for(i in seq_len(n)) { 
     cat(paste("This is row", i, "\t: ")) 
     cat(x[i,], "\n") 
     } 
} 

## Make a couple of example matrices 
m <- mm <- matrix(1:16, ncol=4) 

## Create an object of class "myMatrix". 
class(m) <- c("myMatrix", class(m)) 
## When typed at the command-line, the 'print' part of the read-eval-print loop 
## will look at the object's class, and say "hey, I've got a method for you!" 
m 
# This is row 1 : 1 5 9 13 
# This is row 2 : 2 6 10 14 
# This is row 3 : 3 7 11 15 
# This is row 4 : 4 8 12 16 

## Alternatively, you can specify the print method yourself. 
print.myMatrix(mm) 
# This is row 1 : 1 5 9 13 
# This is row 2 : 2 6 10 14 
# This is row 3 : 3 7 11 15 
# This is row 4 : 4 8 12 16