Erişimci Fonksiyonlar

Kapsülleme, diğer kodların bir nesnenin alanlarına doğrudan erişmek yerine işlevler aracılığıyla nesneyle çalışması anlamına gelir. Bir getter bir değeri okur, setter ise onu değiştirir. Bir S3 listesi için setter, değiştirilen kopyayı döndürür:

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

Çıktı:

[1] "Ada Lovelace"

Erişimci işlevler, nesnenin verileri saklama biçimini, onu kullanan kodu bozmadan değiştirmesine olanak tanır. Bu termometre Celsius değerini saklar ve bir getter istendiğinde Fahrenheit değerini hesaplar; böylece çağıranlar alanın kendisini hiçbir zaman görmez:

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

Çıktı:

25 77

R'nin names(x) <- ... gibi kendi setter'ları replacement function'lardır. x ve value parametrelerine sahip "name<-" adlı bir işlev, çağıranların name(p) <- "Bo" yazmasına olanak tanır; R bu işlevi çağırır ve sonucu tekrar p'ye atar:

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

Çıktı:

[1] "Bo"

Bir kapanış nesnesinin getter'ı, özel verilerin bir kopyasını döndürür. Bu kopyayı değiştirmek nesneyi değiştirmez; dolayısıyla nesneye erişmenin tek yolu nesnenin kendi işlevleridir:

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

Çıktı:

[1] "milk"