Hàm truy cập

Tính đóng gói có nghĩa là code khác làm việc với một đối tượng thông qua các hàm thay vì truy cập trực tiếp vào các trường của đối tượng. Hàm getter đọc một giá trị, còn hàm setter thay đổi giá trị đó. Với danh sách S3, hàm setter trả về bản sao đã thay đổi:

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

Đầu ra:

[1] "Ada Lovelace"

Các phương thức truy cập cho phép đối tượng thay đổi cách lưu trữ dữ liệu mà không làm hỏng code sử dụng nó. Nhiệt kế này lưu nhiệt độ theo độ C, còn hàm getter tính độ F khi được yêu cầu, nên bên gọi không bao giờ thấy trực tiếp trường dữ liệu:

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

Đầu ra:

25 77

Các setter riêng của R, chẳng hạn như names(x) <- ..., là hàm thay thế. Một hàm có tên "name<-" với các tham số x và value cho phép bên gọi viết name(p) <- "Bo"; R gọi hàm đó rồi gán kết quả trở lại cho 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))

Đầu ra:

[1] "Bo"

Hàm getter của một đối tượng closure trả về bản sao của dữ liệu riêng tư. Thay đổi bản sao đó không làm thay đổi đối tượng, vì vậy cách duy nhất để truy cập là thông qua các hàm của chính đối tượng:

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

Đầu ra:

[1] "milk"