Vectores de clase

Parte de la sección Programación orientada a objetos del Journey de R de Coddy. Lección 12 de 57.

La herencia de S3 proviene del vector de clase. Un objeto con class = c("manager", "employee") es un gerente y también un empleado. Cuando un genérico no tiene un método para manager, el despacho continúa y usa el método employee:

pay <- function(x) UseMethod("pay")
pay.employee <- function(x) x$salary / 12
m <- structure(list(name = "Ada", salary = 60000), class = c("manager", "employee"))
print(class(m))
print(pay(m))

Salida:

[1] "manager"  "employee"
[1] 5000

Escribir a mano el vector de clases en cada constructor repite los detalles de la clase padre. En su lugar, el constructor padre recibe un argumento class y lo coloca delante de su propia clase, y el constructor hijo llama al del padre:

new_employee <- function(name, salary, ..., class = character()) {
  structure(list(name = name, salary = salary, ...), class = c(class, "employee"))
}
new_manager <- function(name, salary, reports) {
  new_employee(name, salary, reports = reports, class = "manager")
}
m <- new_manager("Ada", 60000, 4)
print(class(m))
print(names(m))

Salida:

[1] "manager"  "employee"
[1] "name"    "salary"  "reports"

El ... del constructor padre recopila los campos adicionales del hijo, aquí reports, y los coloca después de los campos propios del padre. Un empleado común no tiene ningún campo reports:

new_employee <- function(name, salary, ..., class = character()) {
  structure(list(name = name, salary = salary, ...), class = c(class, "employee"))
}
e <- new_employee("Bo", 40000)
print(class(e))
print(names(e))

Salida:

[1] "employee"
[1] "name"   "salary"

El orden del vector de clases importa: la clase más específica va primero. Si la clase padre va primero, se usan sus métodos y nunca se usan los métodos de la clase hija:

title <- function(x) UseMethod("title")
title.employee <- function(x) "employee"
title.manager <- function(x) "manager"
right <- structure(list(), class = c("manager", "employee"))
wrong <- structure(list(), class = c("employee", "manager"))
print(title(right))
print(title(wrong))

Salida:

[1] "manager"
[1] "employee"

Desafío

Fácil

Los empleados y los gerentes están repartidos en dos archivos. Completa new_employee(name, salary, ..., class = character()) en Employee.R: devuelve una lista con name, salary y cualquier campo adicional de ..., con el vector de clases c(class, "employee"). Después, completa new_manager(name, salary, reports) en Manager.R, que llama a new_employee() con el campo adicional reports y la clase manager.

Se proporcionan label() y su método employee, así que los gerentes obtienen una etiqueta sin tener un método propio. El código proporcionado lee líneas employee Bo 40000 o manager Ada 60000 4 e imprime el vector de clases, los nombres de los campos y la etiqueta.

Tu código va en Employee.R y Manager.R. main.R contiene el código de entrada/salida proporcionado y no se puede editar.

Pruébalo tú mismo

source("Employee.R")
source("Manager.R")

# Código de entrada/salida proporcionado: mantenlo tal como está
input <- suppressWarnings(readLines(file("stdin")))
for (line in input) {
  p <- strsplit(line, " ")[[1]]
  x <- if (p[1] == "manager") new_manager(p[2], as.numeric(p[3]), as.numeric(p[4])) else new_employee(p[2], as.numeric(p[3]))
  cat("class: ", paste(class(x), collapse = ", "), "\n", sep = "")
  cat("fields: ", paste(names(x), collapse = ", "), "\n", sep = "")
  cat(label(x), "\n", sep = "")
}

Ponte a prueba

Esta lección incluye un breve cuestionario. Empieza la lección para responderlo y registrar tu progreso.

Todas las lecciones de Programación orientada a objetos

3Herencia en S3

Vectores de claseOrden de búsqueda de métodos Extensión con NextMethod Comprobación con inherits()Repaso - Nómina del personal

6S4 Genéricos y métodos

Creación de genéricos Métodos para funciones incorporadas Despacho sobre dos argumentos setValidity y validObject Repaso: dinero y moneda

9Patrones de diseño Parte 1

Patrón Singleton Patrón Factory Patrón Observer Patrón Strategy

12Desafíos finales

Estacionamiento Programador de eventos Libro mayor bancario

Practica por tu cuenta: Compilador de R online