Zugriffsfunktionen

Kapselung bedeutet, dass anderer Code mit einem Objekt über Funktionen arbeitet, anstatt direkt auf seine Felder zuzugreifen. Ein Getter liest einen Wert, und ein Setter ändert ihn. Für eine S3-Liste gibt der Setter die geänderte Kopie zurück:

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

Ausgabe:

[1] "Ada Lovelace"

Accessoren ermöglichen es dem Objekt, seine Daten anders zu speichern, ohne den Code zu beschädigen, der es verwendet. Dieses Thermometer speichert Celsius, und ein Getter berechnet auf Anfrage Fahrenheit, sodass Aufrufer das Feld selbst nie sehen:

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

Ausgabe:

25 77

R-eigene Setter wie names(x) <- ... sind Ersetzungsfunktionen. Eine Funktion namens "name<-" mit den Parametern x und value ermöglicht es Aufrufern, name(p) <- "Bo" zu schreiben; R ruft sie auf und weist das Ergebnis wieder p zu:

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

Ausgabe:

[1] "Bo"

Ein Getter eines Closure-Objekts gibt eine Kopie der privaten Daten zurück. Das Ändern dieser Kopie ändert das Objekt nicht, daher führt der einzige Weg hinein über die eigenen Funktionen des Objekts:

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

Ausgabe:

[1] "milk"