Определение ссылочных классов

Часть раздела Объектно-ориентированное программирование путешествия по R на Coddy. Урок 37 из 57.

Ссылочные классы (RC) — это система R для объектов, которые изменяются на месте, как в Java или Python. setRefClass() объявляет класс с типизированными полями и возвращает генератор; $new() создаёт объект, а $ читает и изменяет его поля:

Account <- setRefClass("Account", fields = list(owner = "character", balance = "numeric"))
a <- Account$new(owner = "Ada", balance = 100)
a$balance <- a$balance + 50
cat(a$owner, a$balance)

Результат:

Ada 150

Объект RC является ссылкой, как и окружение. Присваивание его другой переменной или передача его функции не создаёт его копию, поэтому изменение через любое имя является изменением одного и того же объекта:

Account <- setRefClass("Account", fields = list(owner = "character", balance = "numeric"))
pay_fee <- function(acc) acc$balance <- acc$balance - 5
a <- Account$new(owner = "Ada", balance = 100)
b <- a
b$balance <- 60
pay_fee(a)
cat(a$balance, b$balance)

Вывод:

55 55

Поля имеют тип. Присваивание значения неправильного класса отклоняется, и поле сохраняет своё прежнее значение:

Account <- setRefClass("Account", fields = list(owner = "character", balance = "numeric"))
a <- Account$new(owner = "Ada", balance = 100)
msg <- tryCatch({ a$balance <- "lots"; "changed" }, error = function(e) conditionMessage(e))
cat(msg, "\n")
cat(a$balance, "\n")

Результат:

invalid assignment for reference class field ‘balance’, should be from class “numeric” or a subclass (was class “character”) 
100

Генератор описывает класс: Account$fields() перечисляет поля и их типы. Объект, напечатанный без метода show, перечисляет свои поля; поле, которому не было задано значение, пусто:

Account <- setRefClass("Account", fields = list(owner = "character", balance = "numeric"))
print(Account$fields())
Account$new(owner = "Bo")

Вывод:

      owner     balance 
"character"   "numeric" 
Reference class object of class "Account"
Field "owner":
[1] "Bo"
Field "balance":
numeric(0)

Задание

Легко

Объявите ссылочный класс Book в Book.R с полями title и author (character) и pages (numeric), сохранив генератор в Book. Затем напишите add_pages(book, n), которая добавляет n к страницам книги на месте и не возвращает ничего полезного.

Предоставленный код считывает title;author;pages, создаёт книгу, присваивает её второй переменной, добавляет оставшиеся числа через это второе имя и выводит исходную книгу и имена полей.

Ваш код должен находиться в Book.R. В main.R содержится предоставленный код ввода/вывода, и его нельзя редактировать.

Попробуйте сами

source("Book.R")

# Предоставленный код ввода/вывода: оставьте его как есть
input <- suppressWarnings(readLines(file("stdin")))
p <- strsplit(input[1], ";")[[1]]
b <- Book$new(title = p[1], author = p[2], pages = as.numeric(p[3]))
alias <- b
for (n in as.numeric(input[-1])) add_pages(alias, n)
cat(b$title, " by ", b$author, ": ", b$pages, " pages\n", sep = "")
cat("fields: ", paste(names(Book$fields()), collapse = ", "), "\n", sep = "")