Списки с классом

S3 — старейшая и наиболее часто используемая объектная система R. Объект S3 — это обычный список с атрибутом class, меткой, указывающей, к какому типу объектов он относится. class(x) <- "dog" задаёт эту метку:

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

Вывод:

[1] "dog"
Rex is 3

structure() создаёт значение и задаёт его атрибуты одним вызовом — это обычный способ создать объект S3. Поля считываются с помощью $, как в любом списке:

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

Результат:

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

Класс — это всего лишь метка: R не проверяет, какие поля есть у объекта, поэтому любой список можно назвать dog. unclass() удаляет метку и возвращает обычный список:

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

Вывод:

$x
[1] 1

$y
[1] 2

Объекты S3 являются значениями. Функция, изменяющая объект, изменяет свою собственную копию, поэтому она возвращает новую версию, а вызывающая сторона присваивает её. Исходный объект остаётся прежним:

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)

Вывод:

3 4