Fonctions d’accès

L'encapsulation signifie que les autres codes interagissent avec un objet par l'intermédiaire de fonctions au lieu d'accéder directement à ses champs. Un getter lit une valeur et un setter la modifie. Pour une liste S3, le setter renvoie la copie modifiée :

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

Sortie :

[1] "Ada Lovelace"

Les accesseurs permettent à l’objet de modifier la manière dont il stocke les données sans casser le code qui l’utilise. Ce thermomètre stocke les degrés Celsius, et un accesseur calcule les degrés Fahrenheit lorsqu’on les demande, de sorte que les appelants ne voient jamais le champ lui-même :

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

Sortie :

25 77

Les propres setters de R, tels que names(x) <- ..., sont des fonctions de remplacement. Une fonction nommée "name<-" avec les paramètres x et value permet aux appelants d’écrire name(p) <- "Bo" ; R l’appelle et réaffecte le résultat à 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))

Sortie :

[1] "Bo"

Un accesseur d’un objet de fermeture renvoie une copie des données privées. Modifier cette copie ne modifie pas l’objet ; le seul moyen d’y accéder passe donc par les propres fonctions de l’objet :

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

Sortie :

[1] "milk"