Funciones de acceso

Encapsulamiento significa que otro código trabaja con un objeto mediante funciones en lugar de acceder directamente a sus campos. Un getter lee un valor y un setter lo cambia. Para una lista S3, el setter devuelve la copia modificada:

new_member <- function(name) structure(list(name = name), class = "member")
get_name <- function(p) p$name
set_name <- function(p, value) {
  p$name <- value
  p
}
p <- new_member("ada")
p <- set_name(p, "Ada Lovelace")
print(get_name(p))

Salida:

[1] "Ada Lovelace"

Los accesores permiten que el objeto cambie la forma en que almacena los datos sin romper el código que lo utiliza. Este termómetro almacena grados Celsius, y un getter calcula los grados Fahrenheit cuando se solicitan, de modo que quienes llaman nunca ven el campo en sí:

new_thermo <- function(c) structure(list(c = c), class = "thermo")
celsius <- function(t) t$c
fahrenheit <- function(t) t$c * 9 / 5 + 32
t <- new_thermo(25)
cat(celsius(t), fahrenheit(t))

Salida:

25 77

Los propios setters de R, como names(x) <- ..., son funciones de reemplazo. Una función llamada "name<-" con los parámetros x y value permite a quienes llaman escribir name(p) <- "Bo"; R la llama y asigna el resultado nuevamente a p:

new_member <- function(name) structure(list(name = name), class = "member")
name <- function(p) p$name
"name<-" <- function(x, value) {
  x$name <- trimws(value)
  x
}
p <- new_member("ada")
name(p) <- "  Bo  "
print(name(p))

Salida:

[1] "Bo"

Un getter de un objeto de cierre devuelve una copia de los datos privados. Cambiar esa copia no cambia el objeto, por lo que la única forma de acceder a él es mediante las propias funciones del objeto:

make_list <- function() {
  items <- character(0)
  list(add = function(x) items <<- c(items, x),
       get_items = function() items)
}
todo <- make_list()
todo$add("milk")
mine <- todo$get_items()
mine[1] <- "HACKED"
print(todo$get_items())

Salida:

[1] "milk"