Danh sách với một lớp

S3 là hệ thống đối tượng lâu đời nhất và được dùng nhiều nhất của R. Đối tượng S3 là một danh sách thông thường có thuộc tính class, một nhãn cho biết đó là loại đối tượng nào. class(x) <- "dog" đặt nhãn:

rex <- list(name = "Rex", age = 3)
class(rex) <- "dog"
print(class(rex))
cat(rex$name, "is", rex$age)

Đầu ra:

[1] "dog"
Rex is 3

structure() tạo giá trị và thiết lập các thuộc tính trong một lần gọi, đây là cách thông thường để tạo đối tượng S3. Bạn đọc các trường bằng $ như với mọi danh sách:

rex <- structure(list(name = "Rex", age = 3), class = "dog")
print(class(rex))
print(is.list(rex))
print(rex$age)

Đầu ra:

[1] "dog"
[1] TRUE
[1] 3

Lớp chỉ là một nhãn: R không kiểm tra một đối tượng có những trường nào, vì vậy bất kỳ danh sách nào cũng có thể được gọi là dog. unclass() xóa nhãn và trả lại danh sách thuần:

p <- structure(list(x = 1, y = 2), class = "point")
print(unclass(p))

Đầu ra:

$x
[1] 1

$y
[1] 2

Đối tượng S3 là các giá trị. Hàm (function) thay đổi một đối tượng sẽ làm thay đổi bản sao của chính nó, vì vậy hàm trả về phiên bản mới và bên gọi gán giá trị đó. Bản gốc vẫn giữ nguyên:

birthday <- function(d) {
  d$age <- d$age + 1
  d
}
rex <- structure(list(name = "Rex", age = 3), class = "dog")
older <- birthday(rex)
cat(rex$age, older$age)

Đầu ra:

3 4