Funzioni di accesso

L'incapsulamento significa che altro codice interagisce con un oggetto tramite funzioni, invece di accedere direttamente ai suoi campi. Un getter legge un valore e un setter lo modifica. Per una lista S3, il setter restituisce la copia modificata:

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

Output:

[1] "Ada Lovelace"

Gli accessor consentono all'oggetto di cambiare il modo in cui archivia i dati senza compromettere il codice che lo usa. Questo termometro memorizza i gradi Celsius e un getter calcola i gradi Fahrenheit quando richiesto, così chi lo usa non vede mai il campo stesso:

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

Output:

25 77

I setter di R, come names(x) <- ..., sono funzioni di sostituzione. Una funzione chiamata "name<-" con i parametri x e value permette a chi la chiama di scrivere name(p) <- "Bo"; R la chiama e assegna il risultato di nuovo 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))

Output:

[1] "Bo"

Un getter di un oggetto closure restituisce una copia dei dati privati. Modificare quella copia non modifica l'oggetto, quindi l'unico modo per accedervi è tramite le funzioni dell'oggetto stesso:

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

Output:

[1] "milk"